This Page Is Inserted by IFW Operations 
and is not a part of the Official Record 

BEST AVAILABLE IMAGES 

Defective images within this document are accurate representations of the 
original documents submitted by the applicant 

Defects in the images may include (but are not limited to): 

• BLACK BORDERS 

• TEXT CUT OFF AT TOP, BOTTOM OR SIDES 

• FADED TEXT 

• ILLEGIBLE TEXT 

• SKEWED/SLANTED IMAGES 

• COLORED PHOTOS 

• BLACK OR VERY BLACK AND WHITE DARK PHOTOS 

• GRAY SCALE DOCUMENTS 

IMAGES ARE BEST AVAILABLE COPY. 


As rescanning documents will not correct images, 
please do not report the images to the 
Image Problems Mailbox. 


1 
1 

3 


■a 


WORLD INTELLECTUAL PROPERTY ORGANIZATION 
International Bureau 



PCT 

INTERNATIONAL APPLICATION PUBLISHED UNDER THE PATENT COOPERATION TREATY (PCT) 


(51) International Patent Classification 6 
A61B 5/08 


Al 


(11) International Publication Number: WO 99/60926 

(43) International Publication Date: 2 December 1999 (02.12.99) 


(21) International Application Number: PCT/US99/1 1828 

(22) International Filing Date: 27 May 1999 (27.05.99) 


(30) Priority Data: 

09/086,165 
09/089,577 


28 May 1998 (28.05.98) US 
3 June 1998 (03.06.98) US 


(71) Applicant: THE TRUSTEES OF COLUMBIA UNIVERSITY 

IN THE CITY OF NEW YORK [US/US]; Broadway and 
11 6th Street, New York, NY 10027 (US). 

(72) Inventors: FINKELSTEIN, Joseph; Apartment 3N, 500 W. 235 

Street, New York, NY 10463 (US). HRIPCSAK, George; 
Apartment 77, 423 W. 120 Street, New York, NY 10027 
(US). 

(74) Agents: TANG, Henry et al.; Baker & Botts, LLP, 30 
Rockefeller Plaza, New York, NY 10112-0228 (US). 


(81) Designated States: BR, CA, IL, JP, RU, European patent (AT, 
BE, CH, CY, DE, DK, ES, FI, FR, GB, GR, IE, IT, LU, 
MC, NL, PT, SE). 


Published 

With international search report. 
With amended claims. 


(54) Titie: SYSTEM AND METHOD FOR REMOTELY MONITORING ASTHMA SEVERITY 


(57) Abstract 

- A system for remotely monitoring asthma severity includes a 
remotely located asthma monitoring station (120) for administering a 
patient self-test, for gathering test data, and relevant patient information 
indicative of asthmatic symptoms; a central processing facility (170) 
for receiving the test data, and patient information from the remote 
monitoring station (120); determining whether the test data is valid, 
analyzing valid test data to generate test results, and an appropriate 
response message to the monitoring station (120); storing the test results 
in a central data repository (124), disseminating the test results, and 
response message in a timely manner as required. The monitoring 
system also includes a remotely located diagnosis/evaluting station 
(200) for displaying the test results, response messages, and other 
patient information. Selectable data links (140, 142, 144, 160, 165, 
190) are provided for real time reciprocal exchange of the test data, 
test results, response message, and patient information between the 
monitoring station (120). Preferably, the remote monitoring station 
(120), central processing facility (170), and remote diagnosis/evaluation 
station (200) are connected via the internet wherein the test results can 
be accessed with a conventional web browser. 
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SYSTEM AND METHOD FOR 
REMOTELY MONITORING ASTHMA SEVERITY 

SPECIFICATION 

A portion of the disclosure of this patent document contains material 
5 which is subject to copyright protection. The copyright owner has no objection to the 
facsimile reproduction by anyone of the patent document or the patent disclosure, as it 
appears in the Patent & Trademark Office file or records, but otherwise reserves all 
copyright rights whatsoever. 

An appendix containing source code listing utilized in practicing the 
10 invention is included as part of the Specification and is hereinafter referred to as 
Appendix I. Appendix I is found on pages 26-1 19 of the Specification. 

FIELD OF THE INVENTION 

The present invention relates in general to the field of remote 
monitoring and diagnosing asthma and related symptoms. More particularly, the 
1 5 present invention relates to a system and method for remotely monitoring asthma 
severity in real-time via wireless and landline communications systems. 

BACKGROUND OF THE INVENTION 

Approximately 1 5 million Americans suffer in varying degrees from 
different forms of asthma. In 1990 alone, nearly 6.2 billion dollars were spent in total 

20 in the United States on asthma-related costs. Approximately 2 billion dollars of this 
amount were spent on in-patient hospital and emergency room services, and 
approximately 2.6 billion dollars on indirect costs such as loss of work, child care and 
premature death. See K. B. Weiss, P. J. Gergen and T. A. Hodgson, "An Economic 
Evaluation of Asthma in the United States," New Eng. J. Med. , vol* 326, pp. 862-866 

25 (1992). Despite advances in the treatment of asthma, the morbidity and mortality of 
the disease has increased significantly during the past several years. Moreover, 
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asthma continues to present significant management problems for patients trying to 
cope with the disease on a day-to-day basis and for physicians providing medical care 
and treatment. 

A common problem in assessing the severity of asthmatic symptoms is 
5 that patients frequently misperceive and underestimate the severity of airway 

obstruction. See E. R. McFadden, R. Kiser and W. J. De Groot, "Acute Bronchial 
Asthma: Relations Between Clinical and Physiological Manifestations," New Eng. J. 
Med. , vol. 288, pp. 221-225 (1973); A. R. Rubinfeld, "Pain MCF: Perception of 
Asthma," The Lancet , pp. 882-884 (1976). Consequently, in-home monitoring of 
10 asthmatic symptoms, combined with patient education, has been shown to 
significantly reduce the incidence of asthma exacerbation and subsequent 
hospitalization. See "Li JTC. Home Peak Expiratory Flow Rate Monitoring in 
Patients With Asthma.," Mavo Clin. Proc . vol. 70, pp. 649-656 (1995). 

In-home monitoring of asthma severity is especially useful for 
1 5 detecting diminished lung function before serious respiratory symptoms become 

evident. See R. Beasley, M. Cushley and S. T. Holgate, "A Self-Management Plan in 
the Treatment of Adult Asthma " Thorax , vol. 4, pp. 200-204 (1989). By identifying 
diminished lung function before clinical symptoms develop, a patient or physician 
may intervene so as to prevent worsening of a condition which may otherwise result in 
20 hospitalization or death. As such, the Expert Panel of National Asthma Education and 
Prevention Program considers ongoing monitoring of pulmonary function as an 
essential part of asthma management. 

Although effective for managing and treating asthma, the reliability 
and accuracy of conventional in-home monitoring systems are limited by several 
25 factors. First, conventional in-home monitoring systems do not allow physicians to 
review and assess test results in a timely manner. Even the most advanced 
conventional systems, which gather peak flow data, only allow physicians to 
download and review patient data on a monthly or weekly basis. Still others allow 
patients to fax peak flow data used to generate reports that are reviewed monthly by 
30 the physician. Conventional in-home monitoring systems do not allow the timely and 
reciprocal exchange of patient data and medical advice between the physician and the 
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patient, and provide no means for notifying the physician or patient of any changes in 
peak flow trends that occur between scheduled reports. As such, if an ominous trend 
or asthma exacerbation occurs between downloads or other information exchange, 
conventional in-home monitoring systems do not allow physicians to recognize 

5 potential problems or intervene until after the monthly or other periodic report has 
been generated and reviewed. 

Second, conventional in-home monitoring systems completely rely on 
the patient's ability to properly perform and document the tests. Conventional systems 
do not provide automated tools for assessing the patient's compliance, and do not 

10 provide capabilities for providing meaningful reciprocal data exchange between the 
patient and the physician as the test is being performed. 

Third, conventional systems use simple, unsophisticated and frequently 
inaccurate methods for evaluating the severity of asthmatic symptoms. For example, 
conventional systems rely on peak expiratory flow ("PEF") measurements to evaluate 

15 asthma severity. Although easy to administer, the accuracy of PEF tests can vary 
largely from patient to patient. This is so because the accuracy of the PEF 
measurements depend largely upon the patient's effort and the strength of his' or hers' 
expiratory muscles. In fact, several studies have shown the presence of persistent 
airway obstructions in asymptotic children and adults having seemingly normal PEF's. 

20 See A. C. Ferguson, "Persistent Airway Obstruction in Asymptomatic Children With 
Asthma With Normal Peak Expiratory Flow Rates," J. Allergy Clinical Immunology , 
vol. 82, pp. 19-22 (1988); C. H. Chiang and K. Hsu, "Residual Abnormalities of 
Pulmonary Function in Asymptomatic Young Adults Asthmatics with Childhood- 
Onset Asthma," J. Asthma , vol. 34, pp. 15-21, (1997). 

25 By contrast, the Forced Vital Capacity test ("FVC"), which requires 

sophisticated computerized analysis, has been shown to be a more precise test for 
evaluating asthma severity. The FVC test is also better than PEF tests for assessing 
the degree of small airways resistance. See R. E. Hyatt and L. F. Black, "The Flow 
Volume Curve," Am. Rev. Resp. Pis. , vol. 107, pp. 191-199 (1973). In short, the 

30 same study also concluded that FVC tests provide the most reliable assessment of 
airway dysfunction in asthmatics. See id. 
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And lastly, conventional in-home monitoring systems do not provide 
computerized clinical decision support tools for processing and evaluating test data, 
thus leaving physicians with voluminous data which is very difficult to analyze in a 
timely and effective manner. Moreover, conventional in-home monitoring systems do 
not provide means for alerting the patient, in a real-time manner, of potentially serious 
respiratory conditions the may require immediate treatment and/or hospitalization. 

As such, asthma continues to present significant management problems 
for patients attempting to cope with the disease on a day-to-day basis and for the 
physicians guiding and advising them. For the reasons noted above, conventional in- 
home monitoring systems and methods are limited and remain largely inadequate. 

SUMMARY OF THE INVENTION 

The aforedescribed limitations and inadequacies of conventional 
asthma monitoring techniques are substantially overcome by the present invention, 
which in a preferred embodiment is a system for monitoring asthma that includes: a 
remotely located asthma monitoring station for administering a patient self-test and 
for gathering test data and relevant patient information indicative of asthmatic 
symptoms; a central processing facility for receiving the test data and patient 
information from the monitoring station, processing the test data to determine whether 
the test data is valid, analyzing valid test data to generate test results and an 
appropriate response message to the monitoring station, storing the test results in a 
central data repository, and disseminating the test results and response message in a 
timely manner as required; and a remotely located diagnosis/evaluation station for 
displaying the test results, response message and patient information. Selectable data 
links are provided for real-time reciprocal exchange of the test data, test results, 
response message and patient information between the monitoring station, the central 
processing facility and the diagnosis/evaluation station. 

Advantageously, the remote monitoring station, central processing 
facility and remote diagnosis/evaluation station are connected via the Internet and test 
results are readily accessible from the central processing facility via a conventional 
Web browser. In addition, a wireless data link between the remote monitoring station 
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and the central processing facility is preferred for the convenience and mobility of the 
patient. 

In accordance with another aspect of the invention, a method is 
provided for monitoring asthma severity. The method includes the steps of 
5 administering a self-test at a remotely located monitoring station to gather test data 
and relevant patient information indicative of asthmatic symptoms (or the lack 
thereof), transmitting the test data and patient information from the monitoring station 
to a central processing facility, processing the test data by the central processing 
facility to determine whether the test data is valid, analyzing valid test data to generate 

1 0 test results and an appropriate response message, storing the test results in a central 
data repository, disseminating the test results and response message in a timely 
manner as required, and displaying the test results, response message and patient 
information at a remotely located diagnosis/evaluation station. 

In accordance with yet another aspect of the invention, a computer 

15 program is provided for use with a system for remotely monitoring asthma severity. 
The computer program requires at least one remotely located computer usable 
medium, at least one centrally located computer usable medium, and distributed 
computer readable program code means embodied in the remotely and centrally 
located computer usable media. The program code means provides for administering 

20 a self-test at a remotely located monitoring station to gather test data and relevant 

patient information indicative of asthmatic symptoms; transmitting the test data and 
patient information from the monitoring station to a central processing facility; 
processing the test data by the central processing facility to determine whether the test 
data is valid; analyzing valid test data to generate test results and an appropriate 

25 response message; storing the test results in a central data repository; disseminating 
the test results and the response message in a timely manner as required; and 
displaying the test results, response message and patient information at a remotely 
located diagnosis/evaluation station. 

30 
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BRIEF DESCRIPTION OF THE DRAWINGS 

For a complete understanding of the present invention and the 
advantages thereof, reference is now made to the following description taken in 
conjunction with the accompanying drawings in which like reference numbers 
5 indicate like features and wherein: 

FIG. 1 shows block diagram of a system for remotely monitoring 
asthma severity according to a preferred embodiment of the present invention; 

FIG. 2 shows another preferred embodiment of a system for remotely 
monitoring asthma severity; 
1 0 FIG. 3 is an example of a physician graphical user interface for use 

with the asthma monitoring system of FIG. 2; 

FIG. 4 is flow diagram showing a preferred method for remotely 
monitoring asthma severity; and 

FIG. 5 is a software flow diagram of the program controlling the 
1 5 monitoring system of FIG. 2. 

DETAILED DESCRIPTION OF THE INVENTION 

FIG.l is a block diagram of a system 1 0 for remotely monitoring 
asthma severity. The monitoring system 10 comprises at least one remotely located 
20 asthma monitoring station 20 (only one shown), a central processing facility 30, and at 
least one diagnosis/evaluation station 40 (only one shown). Via selectable data links 
50, 60 and 70, a physician is able to remotely monitor, in real-time, a patient's 
asthmatic symptoms and intervene if warranted by the severity of the patient's 
condition. 

25 Each monitoring station 20 of the present embodiment is provided with 

a graphical user interface ("GUI"), which a patient uses to provide relevant patient 
information and to administer a self-test to assess asthma severity. Test data is 
collected by the monitoring station 20 and transmitted via a first selectable data link 
50 to the central processing facility 30. The data link 50 can be established via any 

30 public or proprietary wireless or landline communication system. 
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Test data transmitted via the first selectable data link 50 is then 
received by the central processing facility 30 for processing and evaluation. If the test 
data is determined to be valid, thus indicating that the self-test was properly 
administered, the data is analyzed and stored in a central data repository (not shown) 

5 located at the central processing facility 30. Test results are generated, along with an 
appropriate response message or instruction, and disseminated in a timely manner via 
selectable data links 50 and 60 to the physician at the diagnosis/evaluation station 40 
and/or the patient at the remote monitoring station 20. If the central processing 
facility 30 determines for some reason that the test data is invalid, the central 

10 processing facility 30 discards the data and issues a request response message to the 
remote monitoring station 20 via the first data link 50 instructing the patient to repeat 
the self-test at the remote monitoring station 20. 

Like the remote monitoring station 20, the diagnosis/evaluation station 
40 is provided with a GUI which allows the physician to display, review and further 

1 5 evaluate the test results received from the central processing facility 30. From the 

diagnosis/evaluation station 40, the physician is further able to intervene via data links 
60 and 70 if necessitated by the severity of the patient's condition. As with the data 
link 50, data links 60 and 70 can be established via any public or proprietary wireless 
or landline communications system. 

20 FIG. 2 shows a second preferred embodiment of a system for 

monitoring asthma severity. The system 100 includes at least one remotely located 
asthma monitoring station 120 linked via a wireless or landline data link 140,142, or 
144 to a communications network 150. Preferably, the communications network 150 
is the Internet, but can also be any local area network ("LAN"), wide area network 

25 ("WAN") or other computer network providing a suitable messaging service. 

The communications network 150 is further linked to a central 
processing facility 1 70, a local diagnosis/evaluation station 1 80, and a remotely 
located diagnosis/evaluation station 200 via landline data links 160, 165 and 190, 
respectively. The central processing facility 170 can be part of any hospital or medical 

30 information system. Physicians at the diagnosis/evaluation stations 1 80 and 200 are 
linked back to the central processing facility 170 and/or the remote monitoring station 
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120 via the appropriate selectable data link. In addition, physicians can link directly 
to the patient, e^g,, via voice, via cellular phone or landline telephone networks 220. 

As shown in FIG. 2, the remote monitoring station 120 includes a 
spirometer 124 for performing a forced vitality capacity test as part of the patient self- 
5 test, a computing device 126 for reciprocal data exchange with the central processing 
facility 170, a patient GUI 122 for interfacing between the patient and the computing 
device 126, and a symptom diary 128 for storing data related to questions regarding 
relevant patient information and patient responses to those questions, and a wireless 
and/or landline modem 130 for communicating with the communications network 

10 150. Preferably, the spirometer 124 is a portable handheld device such as the 

Vitalograph V2120 which is connected to the computing device 126 via a serial port 
or other compatible interface. The patient GUI 122, which the patient uses to answer 
questions provided by the symptom diary and to perform the self-test, is designed to 
have a minimal number of selectable options and error messaging capabilities to 

1 5 indicate operator error or equipment failure. 

The computing device 126, preferably a battery-operated palmtop 
computer such as a Hewlett Packard HP200LX or a Prolinear MiniNote PS-300, 
includes PCMCIA slots or other network compatible interfaces and includes or is 
connected to a wireless and/or landline modem 130. Preferably, the computing device 

20 126 also includes on-board flash memory with an installation copy the software 
required to perform the required remote monitoring functions. 

Although a wireless system is preferred for convenience and mobility, 
e^, the Cellular Digital Packet Data network ("CDPD"), the RAM Mobile network, 
etc., standard telephone lines can be used to link the remote monitoring station 120 to 

25 the communications network 150. The following modems, for example, are 

recommended: PCMCIA modem (landline modem); Motorola PM100C modem 
(CDPD modem); and Megahertz AllPoints wireless modem (RAM Mobile network 
modem). Data transfer over the landline modem is based on direct dial-up connection 
with the central processing facility 170. Data transfer based on the CDPD modem 

30 uses the Telnet protocol, and data transfer over the RAM Mobile network is based on 
e-mail exchange with the central processing facility 170. Regardless of the modem 
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used, the computing device 126 is capable of automatically recognizing the modem 
type to allow seamless transfer of information between landline and wireless 
communications systems. 

The computing device 126 of FIG. 2 performs several functions, 
5 including but not limited to collecting relevant information from the patient for the 
symptom diary 128. collecting FVC test results from the spirometer 124, performing 
initial error detection with respect to the FVC test results, connecting to the 
communications network 150, and automatically forwarding the test results via the 
wireless modem 130 to the central processing facility 170. In addition, the computing 

10 device 126 provides reciprocal exchange of information between the patient and the 
physician in the form of messages, alerts and reminders, and periodically downloads 
software upgrades from the central processing facility 1 70. 

With the aforementioned remote monitoring station 120, patients are 
asked to perform self-tests twice a day in the morning and evening before and after the 

15 use of a bronchodilator. The asthma measurement comprises a FVC test and a 

symptom diary. The computer allows patients to promptly evaluate the severity of 
their asthma symptoms using visual scales, and then patients perform the FVC test. 
After completion of self-testing, the data is immediately transmitted to the decision 
support server 1 72 at the central processing facility 1 70. Shortly after completion of 

20 the self-test, the patient receives an acknowledgment message from the decision 

support server 172. However, If a connection cannot be established with the decision 
support server 172. the test data is stored locally at the remote monitoring station 120 
and transmitted during the next successful communication session. 

Also, in event that the computing device 126 is unable to connect to the 

25 central processing facility 170 as shown in FIG. 2, the computing device 126 is 

capable of implementing a PEF test per guidelines established by the National Heart, 
Lung and Blood Institute ("NHLBI"). These guidelines provide an approximate 
classification of asthma severity into three categories: good control, caution, medical 
alert. Thus, as a back-up mode of operation, the computing device 126 is capable of 

30 notifying the patient about a serious respiratory condition regardless of remote 
connectivity to the rest of the system. 
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Test data collected by the computing device 1 26 is transmitted to the 
central processing facility 170 immediately upon completion of the patient self-test. 
The central processing facility 170 comprises a decision support server 172, a central 
data repository 124 for storing valid test data, and one or more databases 176 and 178, 
5 e.g.. the Medical Entities Dictionary ("MED"), International Classification of Diseases 
version 9 ("ICD-9") databases, Unified Medical Language System ("UMLS"), etc., for 
analysis and support purposes. Preferably, the decision support server 172 is a UNIX 
host and the central processing facility 170 is connected to the communications 
network 150 via a landline data link 160. 

1 0 After test data is received by the central processing facility 1 70 from 

the monitoring station 120, the decision support server 172 first checks the validity of 
the test data against pre-determined limits to determine whether the self-test was 
properly administered. If the test data is valid, the decision support server 170 
transmits a confirmation message back to the monitoring station 120 via a decision 

1 5 feedback loop 1 79. If ,however, the test data is determined to be invalid or corrupted, 
an immediate request message is transmitted back to the monitoring station 120 
requesting the patient to re-administer the self-test. Preferably, the immediate request 
message is forwarded as an e-mail message to a Web page to which the patient has 
accessed. 

20 After the decision support server 1 72 determines that it has received valid 

test data, the decision support server 172 evokes algorithms to analyze and evaluate 
the test data. The data is analyzed to determine whether there are any trends, and to 
generate the appropriate messages, alarms or reminders to the patient or physician. 
Absolute values and parameter trends are analyzed by the decision support server 1 72 

25 according to standards and guidelines established by NHLBI. Test results are then 
automatically stored in a central data repository 174, preferably using HL7 message 
formats according to MED vocabulary codes. See J. J. Cimino, S. B. Johnson, G. 
Hripcsak, C. L. Hill & P. D. Clayton, "Managing Vocabulary for a Centralized 
Clinical System," Medrnfo, vol. 8, pt 1, pp. 1 17-120 (1995). The central data 

30 repository 174 is preferably a relational database such as IBM's DB2. 
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Each time the central processing facility 1 70 receives new data, the 
decision support server 172 retrieves the previous test results and analyzes the test 
data to check whether pre-defined alert conditions are satisfied. If alert conditions are 
satisfied, the system automatically sends an immediate alert message to the patient 
5 and/or physician advising the patient to immediately consult with the physician or to 
follow a pre-defined exacerbation treatment plan. Preferably, the alert message is also 
forwarded as an e-mail message to a Web page which the patient has accessed. 

Alert parameters can be preset for any of the twenty-nine FVC test 
parameters, and may be based on percent predicted or changes from previous values. 

10 Alerts may also be automatically set to default settings corresponding to the NHLBI 
guidelines. Alert conditions can be dynamically modified for any combination of 
parameters on the designated Web page according to the physician's treatment plan 
for a particular patient. New thresholds for decision support, provided by the 
computing device 126, can be downloaded from the decision support server 172 

15 during subsequent communication sessions. In addition, the system periodically 

checks patient's compliance and generates alerts if the patient has failed to transmit a 
test within a pre-determined period of time. 

Otherwise, if no alert conditions are detected, the test results are 
automatically forwarded to the diagnosis/evaluation stations 1 80 and/or 200 for 

20 review by the physician(s) or other healthcare providers. A Common Gateway 

Interface ("cgi") program on the decision support server 1 72 allows physicians to 
review the test results directly from an Internet Web browser, and to analyze trends 
and compare previous and new results graphically using a superimposition of FVC 
curves. Absolute values and parameters trends may be analyzed according to the 

25 NHLBI guidelines. In addition, physician response messages can be sent back to the 
patient after the physician has reviewed the test results at the nearest 
diagnosis/evaluation station. Physician response messages are preferably sent via e- 
mail, and may for example notify the patient about future treatment changes or remind 
the patient to comply with a pre-defined asthma management plan. 

30 After the analysis results are stored in the central data repository 1 74, 

the results become available for review at one or more diagnosis/evaluation stations 
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180 and 200. By way of example and not limitation, the monitoring system of FIG. 2 
includes an internal diagnosis/evaluation station 1 80 connected directly to the central 
processing facility 1 70, and a remotely located diagnosis/evaluation station 200 
connected to the central processing facility 170 via the communications network 150 
and a landline pathway 190. As shown in FIG. 2, each of the diagnosis/evaluation 
stations 1 80 and 200 include a local terminal 1 82 and 202 and a physician interface 
184 and 204. Preferably, the physician interface utilizes a commercially available 
Internet Web browser. In addition to viewing test results, a treating physician may 
also use the Web browser to forward messages regarding the test results to the 
patient's primary care physician. The treating physician can forward information 
indicating a significant deviation from normal parameters, and ask that a remotely 
located specialist review the test results and send recommendations using the same or 
compatible Web browser. 

FIG. 3 is an example of a GUI 300 corresponding to the physician 
interfaces 1 84 and 204 of FIG. 2. Via the GUI 300, preferably a Internet Webpage 
designed for use with any Netscape-compatible Web browser, a physician can choose 
for analysis purposes any test data set or any combinations of test data sets from a 
chronological list of performed tests. Each test data set is matched to the correct 
patient via a corresponding medical record number. 

The GUI 300 as shown in FIG. 3 includes, but is not limited to, a 
message display region 3 10 for displaying messages received from a patient and for 
sending messages to the patient, a graphical display region 320 for displaying a 
graphical representation of flow-volume data, a region 330 for displaying a table of 
FVC test results, and a region 340 for displaying a symptom diary. Each region can 
be reconfigured, resized or rearranged on the GUI 300 as desired by the physician. 
Preferably, the message display region 3 10 is displayed after the region 340 on the 
GUI 300. 

The graphical display region 320 of FIG. 3 provides a graphical 
representation of flow-volume data that is extremely useful for quickly assessing, 
diagnosing and treating potentially serious asthmatic symptoms. In the graphical 
display region 320, current FVC test results can be displayed superimposed against 
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baseline test results for easy comparison. 

The display region 330 is also helpful to the physician, and is used for 
displaying a table of selected FVC test parameters. As shown in FIG. 3, the table in 
the display region 330 shows a summary of the 29 FVC spirometric parameters 
5 derived from a single administration of an FVC self-test. These parameters 
characterize lung volumes and bronchial obstruction at different levels of the 
bronchial tree. Of the 29 parameters, PEF, Forced Expiratory Volume ("FEV1"), and 
Forced Mid-Expiratory Flow ("FEF25-75%") are generally considered to be the most 
important parameters in diagnosing asthma severity. PEF is the largest expiratory 

10 flow, which is achieved with a maximally forced effort from a position of maximal 
inspiration, and reflects bronchial obstruction mostly at the level of large airways. 
FEV1 is the volume of air exhaled during the first second of the FVC test, which 
declines proportionally to clinical worsening of airways obstruction. FEF25-75% is 
the mean expiratory flow during the middle half of the FVC, which has been shown to 

15 be indicative of bronchial obstruction of small airways, and is a strong indicator of 
asthma deterioration. Presently, there are no conventional monitoring systems that 
monitor the FEF25-75% parameter. 

As further shown in FIG. 3, the table of display region 330 includes 
several columns from left to right indicating the following information: (1) the FVC 

20 index number (column 331), (2) the name of the corresponding FVC parameter 

(column 332), (3) the predicted value for that FVC parameter, Le^ the normal value 
that a person of the same gender, height and age should have (column 333), (4) the 
actual measured value for that FVC parameter (column 334), and (5) the percentage of 
the actual value as compared to the predicted value (column 335). If a physician 

25 chooses more than one test for analysis, the table provides comparison between two 
tests: the baseline (oldest test) and the current test. In such a case, columns are 
provided for displaying the percentage of the baseline values as compared to the 
predicted values (column 335), the actual measured values for the current test (column 
336), the percentage of the current values as compared to the predicted values (column 

30 337), and difference between the baseline and current values in percentages (column 
338). 
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The GUI of FIG. 3 also includes a region 340 for a summary of 
symptoms representing answers provided by the patient in response to the symptom 
diary questions presented to the patient during self- testing. Each answer is graded 
according to a pre-determined scale, usually from 0 to 3. For example, wheezing is 
5 graded as 0 (none, no wheezing), 1 (mild wheezing), 2 (moderate wheezing), or 3 
(severe wheezing). 

FIG. 4 is a flow diagram showing a preferred method for monitoring 
asthma severity according to the present invention. The method 400 includes the steps 
of administering a self-test, e.g. . using a spirometer and answering symptom diary 

10 questions, at a remotely located monitoring station to gather test data and relevant 

patient information indicative of asthmatic symptoms (Step 410) and transmitting the 
test data and patient information from the monitoring station to a central processing 
facility (Step 420). The data is then received at the central processing facility and 
processed by the central processing facility to determine whether the test data is valid 

1 5 (Step 430). Valid test data is then analyzed to generate test results and an appropriate 
response message to the patient at the remote monitoring station (Step 440). Test 
results are then stored in the central data repository (Step 450), disseminated along 
with the appropriate response message (Step 460), and displayed along with other 
patient information at a remotely located viewing station (Step 470). The lines 

20 between the steps of FIG. 4 are shown pointing in both directions to indicate the 
reciprocal exchange of information between the patient at the remote asthma 
monitoring station 120 and the physician at the viewing station 1 80, 200. 

The method 400 also includes the step of generating an appropriate 
request response (not shown) when transmitted test data is determined to be invalid by 

25 the central processing facility. This type of response is generated when an operator 
error or equipment failure has been detected at the remote monitoring station 120 or 
central processing facility 170. 

FIG. 5 is a flow diagram for a computer program corresponding to the 
system of FIG. 2 and for performing the method of FIG. 4. The source code associated 

30 with flow diagram of FIG. 5 is contained in Appendix I, and includes executables 

"sendpft" 510, "getpft" 520, "startpft" 530, "viewpft" 532 and ct trendpft" 534, which 
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are distributed at the remote monitoring asthma station 120, central processing facility 
1 70, and diagnosis/evaluation stations of 1 80, 200 of FIG. 2, respectively. The 
computer program also utilizes the symptom diary 128, central data repository 174, 
support databases 176, 178 and GUI interfaces 122, 184, 204 of FIG. 2. Preferably, the 
5 distributed computer program of FIG. 5 is written in C-language and assembler to 
optimize system performance. 

Referring again to FIG. 5, the computer program includes the sendpf 
executable 510, which is installed in the computing device 126 of the remote 
monitoring station 120. The senpdf executable 510, together with the symptom diary 

10 128, guides the patient through the self-test procedure and sends the necessary data to 
the central processing facility 170. Via the patient GUI 122, the patient is asked 
several questions relating to his' or hers' present respiratory condition. Sendpdf then 
instructs the patient to perform the self-test using the spirometer 124, which 
accumulates the required test data until the self-test is completed. When the self-test is 

15 completed, the test data is transferred from the spirometer 124 to the computing device 
126, preferably via the computing device's serial port, and downloaded along with the 
responses to the symptom diary questions to the central processing facility 170. 
Sendpdf downloads the test data and responses (collectively tl the data") by selecting an 
available data link via the wireless/landline modem 130, and by transmitting the data to 

20 the central processing facility 1 70. In case of operator error or equipment failure, the 
sendpdf executable generates the appropriate error messages for display at the patient 
GUI 122. 

Data transmitted by the remote asthma monitoring station 120 is then 
received by the central processing facility 170, and processed by the getpft executable 
25 520. The getpft executable 520, along with the startpft, viewpft and trendpft 

executables 530, 532 and 534, respectively, can be distributed amongst various 
processors at the central processing facility 170. Preferably, however, each of these 
executables run on the decision support server 172 of FIG. 2. 

Referring again to FIG. 5, the getpft executable receives the data from 
30 the remote monitoring station 120 and encodes it using one or more support databases 
176 and 178. The support databases, which interface with the getpft executable, may 
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include databases such as MED, ICD-9 and UMLS for reformatting the test date as 
desired to conform with industry standard data formats. Preferably, the test data is 
reformatted using an HL7 message format before it is downloaded into the central data 
repository 174. The getpft executable then retrieves historical data from the central 
5 data repository 1 74 and determines whether an alert condition exists. If an alert 

condition exists, the getpft executable issues the appropriate alert message to'sendpft to 
notify the patient. 

The remaining executables, startpft 530, viewpft 532 and trendpft 534, 
are used by the physician to evaluate patient data stored in the central data repository 

10 1 74. The executables can each run on the decision support server 172, or be 

distributed on different computing platforms as required at the central processing 
facility 170. Preferably, the executables 530, 532 and 534 are cgi programs that can be 
invoked by a physician directly from an Internet Web browser. The Web server, again, 
can be the decision support server 172 or some other computing platform at the central 

15 processing facility 170. 

In the embodiment of FIG. 5, the startpft executable 530 is used to 
activate the viewpft and trendpft executables 532 and 534. The startpft executable 530 
is activated via a physician GUI 184, 204, preferably a Netscape-compatible Internet 
Web browser, at the diagnosis/evaluation station 180, 200. Startpft asks the physician 

20 to enter information about the data to evaluated, including how the data is to be 

presented. This data is forwarded to viewpft, which retrieves the requested data from 
the central data repository 170 and displays it at the diagnosis/evaluation station 180, 
200 as requested by the physician. If the physician so desires, the trendpft can be 
activated to perform statistical trend analysis on the requested data. 

25 The embodiment of FIG. 2 has been tested using ten healthy volunteers 

and asthma patients. The embodiment utilized the Internet as the communication 
network 150, the computer program of FIG. 5, and a Netscape-compatible Web 
browser as the physician GUI 1 84, 204. Each patient was trained to use the system, 
and each was equipped with a remote monitoring station 120 for two to 21 days. Each 

30 was able to perform FVC tests twice daily, and to upload FVC curves and symptoms 
scores from their homes to the central data repository 174. The system provided 
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reliable and timely reciprocal exchange of all relevant information between the 
physician and the remotely located asthma patients. 

Based on the system test, the average transmission time from the 
computing device 126 to the central data repository 174 was shown to be 
5 approximately six minutes when using a cellular network for the wireless data link 140, 
and eight minutes when using a RAM Mobile network. The data transmission rate 
over these wireless networks did not exceed 9600 bps. When using a 14.4 Kbps 
landline in place of the wireless path, the average transmission time improved to 
approximately one minute. In each case, the test results were available for review on a 
10 decision support server Web page immediately after transmission. 

Although the present invention has been described in connection with 
particular embodiments thereof, it is to be understood that such embodiments are 
susceptible of modification and variation without departing from the scope of the 
inventive concept as defined by the appended claims. 
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APPENDIX I : 

Source Listings for sendpft, getpft, startpft, viewpft and trendpft 
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sendpft 


#include <stdio.h> /*ID is defined from file*/ /*04/21/97*/ 
#include <string.h> /*28/29*/ 
^include <stdlib.h> 
5 ^include <dos.h> 
#include <time.h> 
#include <conio.h> 
^include <graphics.h> 
#include <dir.h> 


1 0 #pragma inline //-B use TASM 
#pragrna option - 1 //80 1 86 codes 
#pragma option -N- //turn off stack checking 
#pragma option -G //speed optimization 


#define 1CR N 1 //interr. control reg. 
1 5 #define IIDRN 2 //interr. identification d. reg. 

#define LCRN 3 //line control register 

#define MCR N 4 //modem control reg. 

#define LSR_N 5 //line status reg. 

#define MSR_N 6 //modem status reg. 
20 //#define COM 1 // 1-COM1 2-COM2 3-COM3 4-COM4 

//#defineQn 10 

#define Ndial 4 // # of attempts to dial 
#define trLen 30 //120 

int COM,mCOM; 
25 intMX[144],MI[I44]; 

float parval[29][3],bestnow[29],bestval[29],valbuf[29][trLen]; 
char parnarn[29][15]={ 
, TVC^ , TEV.5 , ^ , TEV.5/FVC% , ^ , TEV.75^ , TEV.75/FVC%^ , TEVl^ e TEVl/VC% , ^ 
, TEVl/FVC% , ^ , TEVl/PEF^ , TEV3 , ^ , TEV3/FVC% , ^ M PEF^"FEF25-75%^ 

30 f TEF25-75/FVC , ^ , TEF75-85%^ ,, FEF.2-1.2 , ^ ^ FEF25 o /o , ^ M FEF50 o /o , ^ ,, FEF75 o /o , ^ 
'TMFTYFETV'MVVindV'FIVCVTIVOT^ 
"FIF75%VTIF50/FEF50%"} ; 
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typedef struct _AUX_MODE_ { 
union { 
struct { 

unsigned char len : 2 y //char length 
5 stop : 1 , //#stop-bits 

parity : 2, //parity control 
stuck_parity : 1 , //parity fixation 
en_break_ctl : 1 , //break 
dlab : 1 ; //speed divider 
10 } ctljword; 

char ctl; 
} ctl_aux; 

unsigned long baud; // communication speed 
} AUX_MODE; 

1 5 typedef union _MCR_ { 
struct { 

unsigned char dtr : 1 ; 
unsigned char rts : 1 ; 
unsigned char out 1 : 1; 
20 unsigned char out2 : 1 ; 

unsigned char diag : 1 ; 
unsigned char reserv : 3; 
} bit_reg; 

unsigned char byte; 
25 } MCR; 

typedef union _MSR_ { 

struct { 

unsigned char change_cts : 1 ; 
unsigned char change dsr : 1 ; 
30 unsigned char change_ri : 1; 

unsigned char change_dcd : 1; 
unsigned char cts : 1 ; 
unsigned char dsr : 1 ; 
unsigned char ri : 1 ; 
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unsigned char dcd : 1 ; 
} bit_reg; 

unsigned char byte; 
} MSR; 

5 unsigned def_base_adr(int COMN); //define base address 

int aux_init(AUX_MODE *mode, int port, int imask); //init COM 
//void aux_stat(AUX_MODE *mode, int COMN); //read COM status 
//void modem_status(void); 

//void prn_status(AUX_MODE *mode, int port); //display status 
1 0 char aux_inp(int port); //read byte 

void aux_outp(char chr, int port); //send a byte 
void dtr_on(int COMN): //set DTR & RTS 
void dtr_off(int COMN); //clear DTR & RTS 
void aux_inpO(int COMN); //read byte 


1 5 void aStrOut(char * s); 

int Resp(char *message.char *rsp,int waitSec); 
void decrypt(char *str); 
void noTrans(FILE *datfil); 

int Ctrl_Handler(void); 
20 float StoF(char *str); 

char *getGRJine(char *cp); 

int Exp(int row, int nb ? unsigned char GR12); 

int lns(int row, int nb ? unsigned char GR12); 

void NightScore(char * score); 
25 void DayScore(char *score); 

//void grDayScore(char *SS); 

//void grNightScore(char *SS); 

void FVChelp(void); 

void doFVC(int ntst); 
30 void drawFVC(void); //(int MX[144], int MI[144]); 

void showFVC(void); //(char pn[29][ 15], float pv[29][3]); 

void drawPnt(int x, int y); 

void trends(int Nm); 

void PtMsg(char *Msg); 
35 void showMsg(char *Msg); 
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//(char pn[29][I5],float pv[29][3],float bv[29]ftrLen],int Nm); 

void main(void) 
{ 

AUX_MODE LCR; 

5 unsigned char a_ch[55][144]; 

unsigned char old 9 ne\v\rnask,shift,b,V12; 
char s[10],Fnam[20] ; Sctl5]; 
int grX,grY,z,n,x,Npnt,Nrow,top,nbit,nFVC=0,A; 
time_t timer,DrTime,tFVCstart,tFVCend ) tLastD=l ,TrTime=0; 
1 0 struct tm *tblock; 
struct ffblk rib Ik; 
FILE *f; 

int ij,y,k,l,m,Nmeas=-l; 
unsigned char ch; 

1 5 char sl[512]=" ,, ,s2[512]="",s3[64]= m, ,s4[64]= ,,M ,ID[8]= M ",Phone[20]; 
//char PhoneN[]=".,,+.23 ,, ; /Z8542477 

char PhoneN[4][8]={"8543 197","8549924", M 8542477", H 8543726"} ; 
char IP[]= ,M )074*.4/.223 n ; //128.59.160.100 
char LogInID[]= ,,A fe A jap"; //homepft 

20 char Pass[]="blf n oq"; //lungtest 

unsigned char p[26000]; 

char *c=p,*cl,*c2 ) msg[512],PrePost,mrNIT[128]; 
char msgIn[400]= ,,n ,msgOut[400]= M {**}"; 

ctrlbrk(Ctrl_Handler); 
25 fHbpen('liomepfUd7'rt'0; fsc^^^ 

fclose(i); //printf("%s %d %d %s\n ,, ,ID,COM > mCOM,Phone); exit(0); 

decrypt(IP); decrypt(LoglnlD); decrypt(Pass); //decrypt(PhoneN); 
for (i=0;i<29;i4-f) bestval[i]=0; 

StartOver: 

3 0 /*zoom HP text mode*/ 
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asm { MOV AH,0 
MOV AL,0x84 
INT 0x10 } 

5 clrscr(); 

// 123456789123456789012345678901234567890 
puts("\n M ); 

puts(" COLUMBIA-PRESBYTERIAN MEDICAL CENTERW); 

puts(" Welcome to Asthma Monitoring ProgramAn"); 
1 0 puts(" This program allows to monitor asthma"); 

puts(" severity at home using symptom diary"); 

puts(" and pulmonary function test."); 

puts(" The results of self-testing are sent"); 

puts(" to CPMC and immediately become"); 
1 5 puts(" available for review by a doctor.\n"); 

puts(" To start symptom diary please"); 

puts(" PUSH ANY BUTTON."); 

ch=getch(); 

20 timer = time(NULL); tblock = localtime(&timer); 
if (diffiime(timer,tLastD)> 14400.0) { 
if ((tblock->tm_hour>4)&&(tblock->tm_hour< 1 6)) NightScore(Sc); 
else {DayScore(Sc); PtMsg(msgOut);} 
tLastD=timer; DrTime=(time_t)difltime(time{NULL),timer); 

25 } 

do { 
clrscrO; 

puts("\n\n\nWHEN DID YOU USE YOUR BRONCHODILATOR\n(RELIEVER) LAST TIME?"); 
puts(""); 

30 puts(" 0 - LESS THAN 30 MINUTES AGO"); 

puts(" 1 - 30 MINUTES TO TWO HOURS AGO"); 
puts(" 2 - TWO TO FOUR HOURS AGO"); 
puts(" 3 - MORE THAN FOUR HOURS AGO"); 
puts(""); 

35 printf("ENTER YOUR CHOICE: "); scanfC%ls",sl); 
} 


BNSDOCID: <WO 9960926A1_I_> 


WO 99/60926 


PCT/US99/11828 


24 

while ((*sl<48)||(*sl>51)); 
PrePost=*sl; 

strcpy(s2,"\n\n THE SYMPTOM DIARY HAS BEEN COMPLETED.\n\n\n"); 
tFVCstart^ime(NULL); 

5 for (i=0;i<29;i++) bestnow[i]=0; 

startFVC: 

c=p; 
do{ 

clrscr(); puts(s2); 
10 // 1234567890123456789012345678901234567890 

puts("Please be ready for the'*); 

printf(" SPIROMETRY test #%d.\n'\nFVC+l); 

puts( M To obtain reliable data you should"); 

printff'repeat the test three times.\n\n"); 
1 5 puts(" 1 - READY FOR THE TEST"); 

puts(" 2 - NEED HELP"); 

puts(" 3 - REFUSE TO DO\n M ); 

printf("Please enter your choice: M ); scanf("%ls",sl); *s2=0; 
if (*sl= , # f ) exit(0); 
20 } 

while ((*sl<49)||(*sl>51)); 

if (*s 1=50) {FVChelpO; goto startFVC;} 
if (*s 1=51) if (nFVOO) goto sendData; 

else {strcpy(s2, ,, \n\nYou have to do spirometryVnat least one time!\n\n"); 
25 goto startFVC;} 

doFVC(nFVC); 

aux_inp0(COM); //clean the input 

LCR.ctl_aux.ctl_word.len=3;/*8bits*/ LCR.ctl_auxxtl_word.stop=0^* lbit*/ 
LCRxtl_auxxtl_word.parity=0; LCR.ctl_auxxtl_word.stuck_parity=0; 
30 LCRxtl_auxxti_wordxn_break_ctl=0; LCRxtl_auxxtl_word.dlab=0; 
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LCR.baud=9600; 

aux_init(&LCR, COM, 0); dtr_on(COM); dtr_on(mCOM); 
/*COMl-0x3F8 COM3-0x3E8*/ 

asm { 

5 XOR AH,AH 

XOR BL,BL 
MOV BH,0xE 

MOV CL,76 

MOV CH,87 
10 PUSH SI 

MOV SI,c 

PUSH DI 

PUSH BP 

MOV BP/7691 
15 CLI} 
COMIN: 

asm { MOV DX,0x3FD 
IN ALJDX 
TEST AL,00000001B 
20 JZ COMIN 

MOV DX,Ox3F8 
IN AL,DX 

MOV BYTE PTR[SI],AL 

CMP AL,0x4B 
25 JNE NOTESC 

CMP AH,0xlB 

JNE NOTESC 

TESTBL,BL 

JNZ GRNEXT 
30 MOV DI,SI 

ADD DI,BP 

INC BL 

JMP NOTESC } 
GRNEXT: 
35 asm { INC BL 
CMP BL,CL 
JBE NOTESC 
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CMP BYTE PTR[DI],BH 
JNE COMSTOP 
CMP BL,CH 

JA COMSTOP} 
5 NOTESC: 

asm { MOV AH,AL 
INC SI 

JMP COMIN } 
COMSTOP: 
10 asm { MOV CX,283 } 
GOLOOP: 

asm { MOV DX,0x3FD 
FN AL,DX 
TEST AL,00000001B 
15 JZ GOLOOP 

MOV DX,0x3F8 
IN AL,DX 
LOOP GOLOOP 
STI 

20 MOV AL.BYTE PTR[DI] 

POP BP 
POP DI 
POP SI 
MOV s,AL 

25 } 

//for (x=i;x<=i+283;x++) p[x]=aux_inp(COM); Npnt=x-1 ; 
if (s[0]!=0xE) {Nrow=45; V12=l;} else {Nrow=54; V12=0;} 
tFVCend=time(NULL); //the timer was switched off! 

//printf("%Id %ld %d\n^tFVCstart,tFVCendXint)diffiime(tFVCend,tFVCstart)); 

30 /» 

z=i=old=x=0; //n-30000; 
do{ 

ch=p[i++]=aux_uip(COM); 
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if ((old==0xlB)&&(ch==0x4B)) { 
if(x==0)z=i;x++; 

if (x>76) if (p[z+7690]!=0xE) break; else if (x>87) break; 

} 

5 old=ch; 
} 

while (1); 

Npnt=i-I; if (p[z+7690]!=0xE) {Nrow=45; V12-1;} else {Nrow=54; V12=0;} 
Npnt-25000; 

10 f-fopen("va.dmp", , 'wb M ); for (i=0;i<=Npnt;i++) {ch=p[i]; fputc(ch,f);} 
fclose(0; 

f=fopen( ,, v.dmp^"rb ,, ); i=0; Nrow=54; V12=0; 
while (feof(f)=0) {ch=fgetc(0; p[i++]=ch; } 
1 5 fclose(f); */ 

//f^fopenC'sendpft.dar/'wt"); 
timer = time(NULL); tblock = localtime(&timer); 
sprintf(Fnam, ,, %c%ld%02d%02d%02d.dr n , 
tblock->tm_mon+65.nFVC,tb!ock->ta^ 
20 f=fopen(Fnam ) "w"); /*fprintf(f/'%s\n n ,sl); fclose(f);*/ 

fprintf(f, M HomePFT_ID:%s\nMD); 

c=strstr(c,"Date M ); sscanf(c, MO /os%s ,, ,sl > s2); 
c=strstr(c, ,, Time H ); sscanf(c, ,f %s%s",s3,s4); 

for(i=0;i<2;i++) {cl^strchr^//*); *cl++=' ';c2=strchr(s4 ,':'); *c2++=";} 
25 sscanf(s2/Vod%d%d^&i,&j,^ 

fprintf(f 5 M %d %d %d %d %d %d\n M ,y,i j,k,l,m); 

c=strstr(c ) "Age"); sscanf(c, ,, %s%s" J s3,s4); fprintf(f,"%s M ,s4); 
c=strstr(c,"Height"); sscanf(c/%s%s'\s3,s4); fprintf(f, ,,0 /oS H ,s4); 
c=strstr(c,"Sex n ); sscanf(c, M %s%s ,, ,s3,s4); fprintf(f,"%s ",s4); 

30 c=strstr(c,"OrigirT); sscanf(c,"%s%s M ,s3,s4); fprintf(f,"%s M ,s4); 

fprintf(f/ ,0 /oc %d %d^F^ePost,(int)DrTimeXint)difm^ne(tFVCend,tFVCsta^t)); 
fprintf(f ) "*°/od\n n ,nFVC+ 1 ); /* x x x in some ver*/ 
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/♦variability*/ 
c=strstr(c,pamam[0]); i=0; 

do sl[i++)=*c++; while (*c!= , \rT); sl[i]=W; fprintf(f, M %s\n",sl); 


c=strstr(c,"test"); sscanf(c,"%s%s ,, ,sl,s2); fprintf(f,"%sW\s2); 

5 for (i=0:i<2;i++) {c=strch^(c, , \n , ); C++;} 

i=0; do si [i++]=*c+-; while (♦c!^); si [i]=*\0'; fprintf(f/*%s\n , \sl); 

for (i=0;i<29;i++) { 
c=slrstr(c,parnam[i]); sscanf(c,"%s%s%s%s" ) s 1 ,s2,s3,s4); 
parval[i][0]=StoF(s2);parval[i][l]=StoF(s3);parval[i][2]=StoF(s4); 
1 0 fprintf(f ; "%s %s %s\n'\s2,s3,s4);} 


c=strstr(c, M Results M ); c=strchr(c,0x30); C++; i=0; 
do sl[i++]=*c++; while (*c!=*\n'); slliJ^O'; 
fprintflCf/VosVn"^]); 


/* graph*/ 

1 5 n=0; new=0; i=0; grY=0; old=0; 

for (x-0;x<144;x++) {MX[x]=0; MI[x]=0; for (i=0;i<55;i++) a_ch[i][x]=0;} 
for (i=0;i<3 1 ;i++) c=getGRline(c); 
for (i=0;i<Nrow;i++) 

{c=getGRline(c); 27; for (x=0;x<144;x++) ch=a_ch[i][x]=*c++;} 

20 if (V 1 2) top=22; else top=26; 

for (x=135;x>l ;x») //do 0,1 after 143-8 

for (i=top;i>=0;i») if (a_ch[i][x]!=0) { //do 23 after 
if (i=26) { 

if ((a_ch[i][x]&0xFC)=0) continue; 
25 shift=4; n=3; 

while ((a_ch[i][x]&shift)==0) {shift«=l; n++;} } 
else { 

shift=l;n=l; 

while ((a_ch[i][x]&shift)=0) {shift«=l; n++;} } /* 
30 shift=0x80; n=8; 

while ((a_ch[i][x]&shift)=0) {shift»= 1 ; n--;} */ 
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MX[x]=Exp(i,n,V12); break; 


} 


//vertical search for x=0,l 

if (VI2) {grY=180; top=22;} else {grY-210; top=26;} 
5 for(x=l;x>=0;x--) { 

if (V12&&((a_ch[23][x]&0x40)»=0)) MX[x]=l; 
else f 
if(V12&&((a_ch[23][x]&Ox80)!=0)) MX[x]=2; 
else { 

10 for (i=top;i>=0;i~) if (a_ch[i][x]!=0) 

{ 

shift=l; n=l; 

while ((a_ch[i][x]&shift)==0) {shift«=l; n++;} 

MX[x]=Exp(i,n,V12); 
15 if(MX[x]%15==0) { 

if (n<8) { //check whether another bit is set 

do {shift«=l;n++;} while ((n<9)&&((a_ch[i][x]&shift)=0)); 

if (n<9) MX[x]=lns(i,n, V 1 2); else MX[x]=0; }//if n<8 / 
else MX[x]=0; 
20 }//ifMX%15 

if(MX[x]>0) break; 

}//for22-0 

if (MX[x]=0) { 

y=32000; for (z=0;z<=grY;z=z+15) 

25 if (abs(z-MX[x+l])<y) {y=abs(z-MX[x+l]); MX[x]=z;}; } 

}//else 
}//forl-0 

//horiz search for y= 1 ,2 
30 if (V12) {top=23; mask=0x80; b=0x40;} else (top=26; mask=2; b=l;} 
for (x=143;x>=0;x») if (MX[x)>0) break; x++; 
while (x<=135) { 
if (x%24=0) { 
y=x+l; 

35 if ((a_ch[top][y]&mask)!=0) MX[y]=2; else if ((a_ch[23][y]&b)!=0) MX[y]=l; 
if(MX[y]>0) {MX[x]=(MX[x-l]+MX[y])/2; x=y++;} else break; } 


BNSDOC1D: <WO 9960926A1_L> 


WO 99/60926 


PCT/US99/11828 


30 

else { 

if ((a_ch[23][x]&mask)!-0) MX[x++]=2; 
else if ((a_ch[23][x]&b)!=0) MX[x++]=l; 
else break;} 
5 }//while 

/* FIV */ 

if (V12) {top=23; b=0xF; mask=8; nbit=4;} 
else {top=27; b=0x3F; mask=0x20; nbit=6;} 
for (x= 1 43 ;x> 1 ;x«) { //do 0, 1 after 
1 0 for (i=Nrow;i>top;i»). //do 23-24 after 

if (a_ch[i][x]!=0) { 
if (i==top+l) { 

if ((a_ch[i][x]&b)==0) break; 
shift=mask; n=nbit; 
1 5 while ((a_ch[i][x]&shift)===0) {shift»=l ; n«;} } 

else { 

shift=l;n=l; 

while ((a_ch[i][x]&shift)==0) {shift«=l; n++;} } 
MI[x]=Ins(i,n,V12); 
20 break; 

}//if 
} //for 143 

//vert, search x=0,l 

if (V12) {top-23; b=0xlF; mask=0xl0; nbit=5; grY=180;} 
25 else {top=27; b=0x7F; mask=0x40; nbit=7; grY-2 1 0;} 

for(x=l;x>=0;x-) { 
for (i=top;i<=Nrow;i++) { 
if(a_ch[i][x]!=0) 
if (i— top) { 
30 if ((a_ch[i][x]&b)=0) continue; 

shift=mask; n=nbit; 

while ((a_ch[i][x]&shift)==0) {shift»-l; n-;} } 
else { 
shift=l;n=l; 
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while ((a_ch[i][x]&shift)-=0) {shift«=l; n++;} } 
MI[x]=lns(i,n,V12); 
if((MI[x]%15)!=0) { 
if (n<8) { 

5 do {shift«=l ; n++;} while ((n<9)&&((a_ch[i][x]&shift)=0)); 

if (n<9) MI[x]=Ins(i,n,V12); else MI[x]=0; }//if n<8 
else MI[x]=0; 
}//if MX%15 

} 

10 if ((MI[x]==0)&&(MI[x+l]>0)) { 
y=32000; 

for (z=0; z<=grY; z+=15) 
{if (abs(z-MI[x+l])<y) y=abs(z-MI[x+l]); MI[x]=z;} 

} 

1 5 if (MI[x]>MI[x+l]) {MI[x]-0; break;} 
} 

for (i=0;i<144;i++) fprintf(f,"%c",(unsigned char)(MX[i]+35)); 
fprintf(f,"\iT); 

for (i=0;i<144;i++) fprintfCf/^/oc^^unsigned char)(MI[i]+35)); 
20 fprintf(f, ,, %s\n ,, ,Sc); 

fprintf(f/ , %s\n",msgOut); strcpy (msgOut," { * * } "); 
fclose(f); 

for (i=0;i<29;i++) if (bestnow[i]<parval[i][l]) bestnow[i]=parval[i][l]; 
printfCW); *s2=0; if (++nFVC<3) goto startFVC; 

25 //printf( u %s\n",Fnam): exit(0); 
/♦transmit the data*/ 

sendData: 

nFVC=0; Nmeas-H-; x=Nmeas%trLen; 
for (i=0;i<29;i++) { 
30 if (bestval[i]<bestnow[i]) bestval[i]=bestnow[i]; 
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valbufti][x]=bestnow[i]; 

} 

//goto fDia; 

clrscrO; A=144+I: TrTime=time(NULL); 
5 //prn_status(&LCR r mCOM); 

LCRxtl_auxxtl__word.Ien=3;/*8bits*/ LCRxtl_auxxtI_word.stop=0;/* lbit*/ 
LCRxtl_auxxtl_\vord.parity=0; LCRxtl_auxxtljword.stuck_parity=0; 
LCRxtl_auxxtl_word.en_break_ctl=0; LCRctl_auxxtl_word.dlab=0; 
LCR.baud=2400; /'9600 
1 0 aux_init(&LCR, mCOM, 0); 

//prn_status(&LCR,mCOM); modem_status(); 
//dtr_on(mCOM); modem_status(); printf("\n"); 
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printft"Checking the modem ... "); 
15 //strcpy(p,"AT&FqOvlel\r"); strcpy (msg/OKXrXn"); 

//strcpy (p," AT&FqOv 1 e 1 sO-O&C 1 &D2&Q5&K3&S I W2S95- 1 8& W\r"); V.42bis 
//strcpy(p," AT&FqOv 1 e 1 sO=0&C 1 &D2&Q5&K3&S 1 S46= 1 36S48= 1 28 W2S95= J 8& W\r"); MNP4 
sprintf(p/'AT%s\r^mINIT); strcpyCmsg/'OKVVn"); 
if (Resp(p,msg,60)) puts("OK n ); else {noTrans(f); goto StartOver;} 
20 /*else { /*f is already closed!*/ 

delay(2500); aStiOut( "+++''); delay(2500); Resp("ATH\r\msg,30); 
if (Resp(p,msg r 30)) puts("OK M ); else {noTrans(f); goto StartOver;} 

} */ 


// 1 234567890 1 234567890 1 234567890 1 234567890 
25 for (i=0;i<Ndial;i+-r) { 

printf( M Connecting to the remote server ... "); 
strcpy (p, M ATD") ; 

strcat(p,Phone); strcat(p,PhoneN[i]); strcatCp/V); strcpy(msg, M >"); 

if (Resp(p ? msg,120)) {puts( M OK"); break;} 
30 if (strstr(p, ,f NO DlALTONE M )!=NULL) 

{puts("\n NO DIALTONE"); noTrans(f); goto StartOver;} 

if (strstr(p; , BUSY M )!=NULL) puts("BUSY"); 

if (i=Ndial-l) (noTrans(f); goto StartOver;} 

delay(lOOO); 
35 } 
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printf("Loging in ... "); 
strcpy(p,"cucis\r"); strcpy(msg," login: "); 

if (Resp(p,msg,120)) puts("OK M ); else {noTrans(f); goto StartOver;} 

printf("Checking the password ... "); 
5 strcpy(p,Log!nID); strcat(p,"\r"); strcpy(msg, "Password: "); 
if (Resp(p,rnsg,60)=0) {noTrans(f); goto StartOver;}; 

strcpy(p,Pass); strcat(p,"\r"); strcpy(msg, '*>"); 

if (Resp(p,msg,60)) puts("OK"); else {noTrans(0; goto StartOver;} 

while (IfuidfirstC^.dr^&ffblk^)) { 
1 0 printf("Sending the data ... '*); 

aStrOut( M @\r"); aStrOut( M telnet telnet telnet\n"); 

f^fopen(ffb]k.ff_name;rO;^^bpen(Fnan^, ,, r ,, ); f^fopenCsendpftdarVV 1 ); 
for (i=0; i<38; i++) { 

fgets(p,5I2,0; 
15 if(i<36)aStrOut(p); 
if (i=36) 

for 0=0J<144;j++) {sprintf(msg/'%d\n",p|j]); aStrOut(msg);} 
if (i=37) { 

for (j=0u<144J-H-) {sprintf(msg, M %dW\p[j]); aStrOut(msg);} 
20 ch=p[144]; sprintf(msg, n %c\n",ch); aStrOut(msg); 

if (ch='F) z=10; else if (ch^'M 1 ) z=3; else z=0; 
if(z>0) 

for 0=Au<A+z:j-H-) {sprintf(msg, ,, %d\n M > p[j]); aStrOut(msg);} 

} 

25 } 

while (fgets(p,5 12,f)!==NULL) aStrOut(p); 
fclose(f); 

strcpy(p,"!END\n n ); strcpyCmsg;^"); 

if (Resp(p,msg,60)) puts("OK M ); else {noTrans(f); goto StartOver;} 
30 cl=strstr(p,"!MSG u ); while(*cl++!=W); c2=strstr(cl,"!MSG H ); 

c=sl; while (cl<c2) *c++=*cl-H-; *c-\0*; puts(sl); strcpy(msgln s sl); 
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remove(ffblk.ffname); 
} 


printf("Closing the connection ... "); 
strcpy(p,"exit\r"); stTcpy(msg, n >"); 
5 if (Resp(p,msg,60)) puts("OK M ); else {noTrans(f); goto StartOver;} 

printf(" Hanging up ... "); 

strcpy(p,"q\r M ); strcpy(msg,"NO CARRIER"); 

if (Respfomsg^O)) puts( M OK"); else {noTrans(0; goto StartOver;} 

//strcpy(p,"ATH\r"); strcpy(msg,"OK\i\n"); Resp(p,msg,60); printf("°/os\n",p); 
1 0 dtr_off(mCOM); dtr_off(COM); TrTime^Ctime QdifftimeOimeCNULLXTrTirne); 

fDia: 

//remove(Fnam); 
clrscr(); pruitf("%c'\7); 

puts(" YOU GOT A MESSAGE FROM THE CPMC SERVER:"); 
15 puts(sl); 

PUts(" »); 

puts("-); 

puts(" CONGRATULATIONS! "); 

puts(" You have successfully completed"); 
20 puts(" self-testing procedures.Xn"); 
do { 

puts( M \n"); 

puts(" 0 - START OVER"); 
puts(" 1 - SHOW THE LATEST RESULTS"); 
25 puts(" 2 - SHOW TRENDS"); 

puts(" 3 - SHOW THE LAST MESSAGED"); 
printfC'ENTER YOUR CHOICE: "); scanf("%ls",sl); 
if(*sl=48) break; 

if (*sl==49) {showFVC0;drawFVC0;} 
30 if (*s 1=50) trends(Nmeas); 

if (*sl==51) showMsg(msgln); 
clrscr(); puts("\n\n\n\n\n M ); 
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while (1); 
/* 

puts(" To start over please push any button."); 
// 1234567890123456789012345678901234567890 
5 timer=time(NULL)+120; 

while (tirner>time(NULL)) if (kbhit()) {ch=getch(); break;} 
*/ 

goto StartOver; 
} 

1 0 int Ctrl_Handler(void) 
{ 
} 

void noTrans(FILE *datfil) 
{ 

15 charch; 

time t tinier; 
fclose(datfil); 
//clrscr(); 
puts("\n\n M ); 

20 puts(" Transmission was not completed."); 

puts( M Please check your modem."); 

puts( H The data was stored local ly.\n"); 

puts(" To start over please push any button."); 

// 1 234567890 1 234567890 1 234567890 1 234567890 
25 timemime(NULL)+120; 

while (timer>time(NULL)) if (kbhit()) {ch=getch(); break;} 

} 


float StoF(char *str) { 
if (str[0]=='-') {strcpyCstr/'O"): return(O.O);} 
30 else return((float)atof(str)); 
} 
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char *getGRline(char *cp) { 

do if ((*cp==0xlB)&&(*(cp+l)=-0x4B)) break; else cp++; while (1); 

return(cp+2); 

} 

5 /* 

void modemstatus(void) 
{ 

unsigned char data; 
unsigned int baseadr; 
1 0 base adr=def_base_adr(COM); 

printf( M \nMSR__N = %x\data=(unsigned char) inp(base_adr+MSR JM)); 
printf( M MCR_N = %x",data=(unsigned char) inp(base_adr+MCR_N)); 
} */* 

void dtr_on(int COMN) 
15 { 

unsigned char MCR: //modem control reg. 
unsigned int baseadr; 

base_adr=def_base_adr(COMN); MCR-inp(base_adr+MCR_N); MCR|=3;//3 
outp(base_adr+MCR_N,MCR); 
20 } 

int aux_init(AUX_MODE *mode, int COMN, int imask) 
{ //imask=0 if interr. are cancelled 

unsigned div, base adr; 
char ctl; 

25 base_adr=def_base_adr(COMN); 

ctl=inp(base_adr+LSR_N); //read LSR to erase error bits 


switch (mode->baud) { 



case 

110 

div=1040; break; 


case 

150 

div=768; break; 

30 

case 

300 

div=384; break; 


case 

600 

div=192; break; 


case 

1200 

: div=96; break; 


case 

2400 

: div=48; break; 


case 

4800 

: div-24; break; 

35 

case 

9600 

: div- 12; break; 
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case 19200 :div=6; break; 
case 38400 : div=3; break; 
case 57600 : div=2; break; 
case 1 1 5200: div^l ; break; 
5 default: retum(-l); 

} ; //write speed divider 

ctl=inp(base_adr+LCR_N); outp(base_adr+LCR_N ,ctl|0x80); 
outp(base_adr+ICR_N, (div»8)&0x00FF); outp(base_adr, div&OxOOFF); 
outp(base_adr+LCR_N, mode->ctI_aux.ctl&0x7F); //write new control byte 
1 0 outp(base_adr+ICRJN,imask); 
return(O); 
} 

void dtr_off(int COMN) 
{ 

1 5 unsigned char MCR; //modem control reg. 
unsigned int base adr; 

base_adr=def_base_adr(COMN); MCR=inp(base_adr+MCR_N); MCR&=0xFC; 

outp(base_adr+MCR_N,MCR); 

} 

20 /* 

void aux_stat(AUX_MODE *mode, int COMN) //read COM status 
{ 

unsigned long b; 
unsigned int base adr; 
25 base_adr=def_base_adr(COMN); 

mode->ctl_aux.ctl=(char)inp(base_adr+LCR_JN); //read LCR 
outp(base_adr+LCR_N,mode->ctl_aux.ctl | 0x80); //enable speed data 
b=inp(base_adr+ICR_N); b«=8; b+=inp(base_adr); //read speed divider 
switch (b) { 
30 case 1040: b- 110; break; 

case 768:b=150; break; 
case 384: b=300; break; 
case 192:b=600; break; 
case 96:b=1200; break; 
35 case 48: b=2400; break; 
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case 24: b=4800; break; 
case 12:b=9600; break; 
case 6:b=19200; break; 
case 3: b=38400; break; 
5 case 2:b=57600; break; 

case 1 : b=l 1 5200; break; 
default: b=0; break; 

}; 

mode->baud=b; 

1 0 outp(base_adr+LCR_N ) mode->ct1_auxxtI & 0x7F); //restore LCR 
} 

*/ 

char aux_inp(int COMN) //read byte 
{ unsigned i; 

15 int x,y; 

unsigned statusreg, base adr; 

base_adr=def base adr(COMN); status _reg=base_adr+LSR_N ; 

while((inp(status_reg)& 1 )=0); 

return(inp(base_adr)); 

20 void aux_outp(char chr, int COMN) //send byte 
{ 

unsigned statu s_reg, base_adr; 

base_adr=def_base_adr(COMN); status_reg=base_adr+LSR_N ; 
while{(inp(status_reg)&0x20)=0); outp(base_adr,chr); 
25 } 

unsigned def_base_adr(int COMN) 

{ //return( *((unsigned far *) MK_FP(0x40,(COMN- 1 )*2)) ); 
switch (COMN) { 

case 1: return(0x3F8); 
30 case 2: retum(0x2F8); 

case 3: return(0x3E8); 

case 4: return(0x2E8); 

default: return(0x3F8); 

}; 
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} 

int Exp(int row, int nb. unsigned char GR12) 
i 

if (GR12) retum((nb+2)+(23-row-l)*8); else return(8*(26-row)+nb); 
5 } 

int Ins(int row, int nb, unsigned char GR12) 
{ 

if (GR12) return((9-nb)+5+(row-24)*8); else retum(8*(row-27)+(8-nb)); 
> 

1 0 void aux_inpO(int COMN) //read byte 
{ 

unsigned status reg, baseadr. rs; 

baseadr^defbaseadr(COMN); status_reg=base_adr+LSR_N ; 

while (inp(status_reg)& 1 ) rs=inp(base adr); 
15 } 

void NightScore(char *scr) 
{ 

char scl[4],R[8]; 
int r; 

20 *scr++='M'; 

while (kbhit()) getch(); 
do { 
clrscr(); 

puts("\nGOOD MORNING !\n"); 
25 putsfPLEASE ESTIMATE THE DISTURBANCE 1 '); 
puts( M OF YOUR SLEEP BY ASTHMA:"); 

puts(-); 

putsf 0 - NONE"); 
puts(" 1 - MrLD"); 
30 puts( M 2 - MODERATE"); 
puts(" 3 -SEVERE"); 
puts(""); 

printf("ENTER YOUR SCORE: "); scanf( ,,0 /ols",scl); 
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} 

while ((*scl<48)||(*scl>51)); 
*scr++=*scl+35; 

do { 
5 clrscr(); 

puts( M \n\n\n\n\nPLEASE ENTER"); 

printf("NUMBER OF AWAKENING BY ASTHMA: M ); scanf("%3s",R); 
r=atoi(R); if ((r==0)&&(R[l]!^0 1 )) continue; 
if ((r=0)&&(R[0]!= , 0 , » continue; if (r<99) break; } 
10 while (1); 

*scr++=r+35; 

do { 
clrscrO; 

puts("\n\n\n\n\n NIGHTTIME RELIEVER USE\n\n\n"); 
1 5 printf("PLEASE ENTER NUMBER OF PUFFS OFVnBRONCHODILATOR DURING THE NIGHT: 

"); 

scanf( n %3s",R); r=atoi(R); if ((r^O^&CRpll^O')) continue; 
if (0=0)&&(R[0] I^O 1 )) continue; if (r<99) break; } 
while (1); 
20 *scr++=r+35; 

*scr=0; 
} 

void DayScore(char *scr) 
{ 

25 int r; 

char scl[4],R[8]; 
*scr++= , E'; 

while (kbhit()) getchO; 
do { 

30 clrscrO; 

puts("\nHELLO! PLEASE DESCRIBE THE ASTHMA"); 
puts("SYMPTOMS YOU EXPERIENCED TODAY:"); 
puts("\n n ); 
puts("WHEEZE M ); 
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puts(""); 

puts(" 0 - NONE"); 
puts(" 1 - MILD"); 
puts( n 2 - MODERATE"); 
5 puts(" 3 - SEVERE"); 
puts(""); 

printf("ENTER YOUR SCORE: n ); scanf("%ls",scl); 
} 

while ((*scl<48)|[(*scl>5l)); 
10 *scr+-H-*scl-f35; 

do{ 

clrscr(); 

puts("\n"); 

putsC'COUGH"); 
15 puts(""); 

puts(" 0-NONE"); 

puts( M 1 - MILD"); 

puts(" 2 - MODERATE"); 

puts(" 3 - SEVERE"); 
20 puts(""); 

printf("ENTER YOUR SCORE: "); scanf( M %ls M ,scl); 

} 

while ((*scl<48)H(*scl>51)); 
*scr++=*scl+35; 

25 do { 

clrscr(); 
puts("\n"); 

puts("SPUTUM PRODUCTION"); 
puts(-); 
30 puts( M 0-NONE"); 
puts(" 1 - MILD"); 
puts( M 2 - MODERATE"); 
puts(" 3 -SEVERE"); 
puts(""); 

35 printf("ENTER YOUR SCORE: "); scanf(("%ls",scl); 
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} 

while ((*scl<48)||(*sc1>51)); 
*scr-f-f=*scl+35; 


do { 
5 clrscr(); 

putsCVn"); 

puts("CHEST TIGHTNESS"); 
puts(""); 

puts( H 0 - NONE"); 
10 puts(" 1 - MILD"); 

puts(" 2 - MODERATE"); 
puts(" 3 -SEVERE"); 
puts(""); 

printf("ENTER YOUR SCORE: "); scanf("%ls",scl); 

15 } 

while ((*scl<48)||(*scl>51)); 
*scr++=*scl+35; 

do { 
clrscrO; 
20 puts("\n"); 

puts("SHORTNESS OF BREATH"); 
P uts(""); 

puts(" 0-NONE"); 
puts(" 1 - MILD"); 
25 puts(" 2 - MODERATE"); 
puts(" 3 -SEVERE"); 
puts(""); 

printf("ENTER YOUR SCORE: "); scanf("%ls",scl); 
} 

30 while ((*scl<48)||(*scl>51)); 
*scr-H-=*scl+35; 

do { 
clrscr(); 
puts("\n"); 
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puts( H LIMITATION OF PHYSICAL ACTIVITY"); 
puts(-); 

puts(" 0 - NONE"); 
puts(" 1 - MILD"); 
5 puts(" 2 - MODERATE"); 
puts(" 3 - SEVERE"); 
puts(""); 

printfCENTER YOUR SCORE: "); scanf("%ls M ,scl); 
} 

10 while ((*scl<48)||(*scl>51)); 
*scr++=*scl+35; 

do { 
clrscr(); 
puts("\n"); 

1 5 puts("OVER-ALL USE OF ASTHMA MEDICATIONS"); 
paits(""); 

puts(" 0 - AS USUAL"); 
puts(" 1 - SLIGHTLY INCREASED"); 
puts(" 2 - SIGNIFICANTLY INCREASED"); 
20 puts(" 3 - MAXIMAL"); 
puts(""); 

printf("ENTER YOUR SCORE: "); scanf("%ls",scl); 
} 

while ((*scl<48)||(*scl>51)); 
25 *scr++=*scl+35; 

do { 
clrscrO; 
puts("\n"); 

puts("EXPOSURE TO ASTHMA TRIGGERS"); 
30 puts( ,,M ); 

puts(" 0-NONE"); 

puts(" 1 - MILD"); 
puts(" 2 - MODERATE"); 
puts(" 3 -SEVERE"); 
35 puts(""); 
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printf("ENTER YOUR SCORE: "); scanf("%ls'\scl); 
} 

while ((*sc 1 <48)||(*sc 1 >5 1 )); 
*scr++=*scl+35; 

5 do { 

clrscr(); 
puts("\n"); 

puts("OVER-ALL ESTIMATE OF ASTHMA"); 
putsC"); 
10 puts(" 0-NONE"): 
puts( n 1 - MILD"); 
puts(" 2 - MODERATE"); 
puts(" 3 - SEVERE"); 

P uts(""); 

1 5 printf("ENTER YOUR SCORE: "); scanf("%ls",scl); 
} 

while ((*scl<48)||(*scl>51)); 
*scr++=*scl+35; 

do { 

20 clrscr(); 

puts("\n\n\n\n\n DAYTIME RELIEVER USE"); 

printf("\n\n\nPLEASE ENTER THE NUMBER OF PUFFS \nOF RONCHODILATOR DURING THE 
DAY: "); 
//scanf("%3s M ,R); 
25 gets(R); r=atoi(R); if ((r=0)&&(R[ 1 ] continue; 
if ((r==0)&&(R[0]!= , 0 t )) continue; if (r<99) break; } 
while (1); 

*scr-H-=r+35; 

*scr=0; 
30 } 

void DayScore(char *scr) 
' { 
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char scLsc2; 
scl=sc2=0; 
do { 
clrscr(); 

5 puts("HELLO! PLEASE DESCRIBE THE ASTHMA"); 

putsC'SYMPTOMS YOU EXPERIENCED TODAY:"); 

sputs(""); 

puts("WHEEZE n ); 

puts(""); 
10 puts("0 - NONE"); 

puts("l - LITTLE"); 

puts("2 - MODERATELY BAD"); 

puts("3 - SEVERE"); 

puts(""); 
15 if(scl==0) { 

putsfENTER YOUR SCORE: "); scl=getch(); if ((sc 1 <48)||(sc 1 >5 1 )) scl-0; } 

else { 

printf("YOU HAVE ENTERED %cAn",scl); 
puts ("TO CONFIRM YOUR CHOICE"); 
20 printf("PLEASE ENTER %c AGAIN:",scl); 
sc2=getch(); if (sc 1 ! =sc2) sc 1 =sc2=0; } 

} 

while (sc2=0); 
*scr++=scl; 

25 scl=sc2=0; 
do { 
clrscr(); 
puts(" f '); 

puts("COUGH"); 
30 puts(' m ): 

puts("0 - NONE"); 

puts("l - OCCASIONAL"); 

puts("2 - FREQUENT 1 ); 

puts( MM ); 
35 if(scl==0){ 

puts("ENTER YOUR SCORE: "); scl=getch(); if ((scK48)||(scl>50)) scl=0; } 
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else { 

print fC'YOU HAVE ENTERED %c.\n'\scl); 
puts ("TO CONFIRM YOUR CHOICE"); 
printf("PLEASE ENTER %c AGAIN:",scl); 
5 sc2=getch0; if (scl !=sc2) scl=sc2=0; } 
> 

while (sc2=0); 
*scr++=scl ; 

scl=sc2=0; 
do { 
clrscr(); 
puts(""); 

puts("SPUTUM"); 
putsC); 

puts("0 - NONE"); 

puts("l - OCCASIONAL BLOTS (LESS THAN 3 TSPS)"); 
puts("2 - A LOT (MORE THAN 3 TSPS)"); 
puts(""); 
if (scl =0) { 

puts( "ENTER YOUR SCORE: "); scl=getch(); if ((scl<48)||(sc!>50)) scl=0; } 
else { 

printf("YOU HAVE ENTERED %c.\n",scl); 
puts ("TO CONFIRM YOUR CHOICE"); 
printf("PLEASE ENTER %c AGAIN:",scl); 
25 sc2=getch(); if (sc 1 !=sc2) scl=sc2=0; } 
} 

while (sc2=0); 
*scr++=scl; 

scl=sc2=0; 
30 do { 

clrscrO; 
puts(""); 

puts("CHEST TIGHTNESS"); 
puts(""); 


10 


15 


20 
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puts("0 - NONE"); 
puts("l - MILD"); 
puts( M 2 - MARKED"); 
puts(" M ); 
5 if(scl=0){ 

puts( "ENTER YOUR SCORE: "); scl=getch(); if ((scl<48)||(scl>50)) scl=0; } 
else { 

printffYOU HAVE ENTERED %c.\n'\scl); 
puts ("TO CONFIRM YOUR CHOICE"); 
1 0 printf("PLEASE ENTER %c AGAIN :",scl); 
sc2=getch(); if (scl !=sc2) scl=sc2=0; } 

} 

while (sc2==0); 
*scr+-*-=scl ; 

15 scl=sc2=0; 
do { 

clrscr(); 
puts(""); 

puts("SHORTNESS OF BREATH"); 
20 puts( mi ); 

puts("0 - NONE"); 

puts("l - MILD (CHOKING SENSATION WITH SOME"); 

puts(" CHEST TIGHTNESS, ABLE TO MOVE ABOUT)"); 

putsC'2 - MODERATE (AIR DIFFICULT TO EXHALE,"); 
25 puts(" CAN MOVE SHORT DISTANCES,"); 

puts(" BUT THEN MUST REST)"); 

puts("3 - SEVERE (CANNOT GET ENOUGH AIR,"); 

puts(" CANNOT MOVE AROUND)"); 

puts(""); 
30 if (scl =0) { 

puts( n ENTER YOUR SCORE: "); scl=getch(); if ((scl<48)||(scl>51)) scl-0; } 

else { 

printf("YOU HAVE ENTERED %c. \n", scl); 
puts ("TO CONFIRM YOUR CHOICE"); 
35 printf("PLEASE ENTER %c AGAIN:", scl); 
sc2=getch(); if (scl !=sc2) scl=sc2=0; } 
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} 

while (sc2==0); 
*scr++=scl; 

scl=sc2=0; 
5 do { 

clrscr(); 
puts( M "); 

puts("LIMITATION OF PHYSICAL ACTIVITY"); 
puts(""); 
10 puts("0 - NONE"); 
puts("l - MILD"): 
puts("2 - MARKED"); 

puts(""); 
if (scl=0) { 

15 puts("ENTER YOUR SCORE: "); scl=getch(); if ((scl<48)||(scl>50)) scl=0; } 
else { 

printf("YOU HAVE ENTERED %c.\n",scl); 
puts ("TO CONFIRM YOUR CHOICE"); 
printf("PLEASE ENTER %c AGAIN:'\scl); 
20 sc2=getch(); if (sc 1 !=sc2) sc 1 =sc2=0; } 
} 

while (sc2=0); 
*scr++=scl; 

scl=sc2=0; 
25 do { 

clrscr(); 
puts(""); 

puts("ASTMA MEDICATION"); 

puts(""); 
30 puts("0 - AS USUAL"); 

puts("l - SLIGHTLY INCREASED DOSAGE"); 

puts("2 - SIGNIFICANTLY INCREASED DOSAGE"); 

puts(" OR USE OF ANOTHER DRUG"); 

puts(""); 
35 if(scl=0){ 
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puts("ENTER YOUR SCORE: "); sc!=getch(); if ((scl<48)||(scl>50)) scl=0; } 
else { 

primf( 1, YOU HAVE ENTERED %c.\n",scl); 
puts ("TO CONFIRM YOUR CHOICE"); 
5 prtntf( "PLEASE ENTER %c AGAIN:",sc1 ); 

sc2=getch(); if(scl!=sc2) scl=sc2=0; } 

} 

while (sc2==0); 
*scr++=scl; 


10 scl=sc2-0; 
do { 
clrscr(); 

puts("HAVE YOU EXPERIENCED TODAY FACTORS"); 

putsCTHAT MAY EXACERBATE ASTHMA:"); 
1 5 puts(" WEATHER CHANGES, ALLERGEN S,"); 

puts(" AIR POLLUTANTS, SULFUR DIOXIDE,"); 

puts( M RESPIRATORY INFECTIONS,"); 

puts(" UNUSUAL FOODS, ADDITIVES, DRUGS,"); 

puts(" EXTREME EMOTIONAL EXPRESSION,"); 
20 puts(" EXERCISE AND HYPERVENTILATION, ETC."); 

puts( m '); 

puts("0 - NO"); 

puts("l - YES"); 

putsC 1 "); 
25 if (scl=0) { 

puts("ENTER YOUR SCORE: "); scl=getch(); if ((scl<48)||(scl>49)) scl=0; } 

else { 

printf("YOU HAVE ENTERED %c.\n",scl); 
puts ("TO CONFIRM YOUR CHOICE"); 
30 printf("PLEASE ENTER %c AGAIN:",scl); 
sc2=getch(); if (scl !=sc2) scl=sc2=0; } 

} 

while (sc2=0); 
*scr++=scl; 

35 scl=sc2=0; 
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do { 
clrscr(); 

puts("WHAT IS YOUR OVER-ALL ESTIMATE"); 
puts("OF ASTHMA SYMPTOMS TODAY:"); 
5 putsC"); 


puts("0 - NO SYMPTOMS"); 
puts("l - MILD SYMPTOMS"); 
puts("2 - MODERATE SYMPTOMS"); 
puts("3 - SEVERE SYMPTOMS"); 
10 puts( ,,M ); 

if(scl=0) { 

puts("ENTER YOUR SCORE: "); scl=getch(); if ((scl<48)||(sc1>51)) scl=0; } 
else { 

printf("YOU HAVE ENTERED Voc.W.scl); 
1 5 puts ("TO CONFIRM YOUR CHOICE"); 

printf( M PLEASE ENTER %c AGAIN:",scl); 
sc2=getch0; if (scl!=sc2) scl=sc2=0; } 

} 

while (sc2==0); 
20 *scr++=scl; 


*scr=0; 
} 

/* 

void prnstatus(AUX_MODE *mode, int port) 
25 { 

int blen; 

aux_stat(mode, port); 
switch (mode->baud) { 

caseO: blen^S; break; 
30 case 1: blen^; break; 

case 2: blen=7; break; 
case 3: blen=8; break; 
default: blen=8; break; 

}; 

35 printf( 

"\nCOM%ld status char length: %d #stop-bits : %d\n" 
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"parity control : %d parity fixation : %d break status : %d\n" 
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"status bit : %d speed : %d\n", 

port,blen, mode->ctl_aux.ctl word.stop+l , mode->ctI_aux.ctl_word. parity, 
mode->ctl_auxxtl_word-Stuck_parity J mode->ctl_aux.ctl_word.en break_ctl, 
5 mode->ctl_aux.ct1_word.dlab, (unsigned long)mode->baud); 
} 

*/ 

void aStrOut(char *s) 
{ 

1 0 char *str; 

str=s; while (*str) {auxoutp(*str,mCOM); str++;} 
} 

int Resp(char *message,char *rsp,int waitSec) 
15 { 

time t ss; 
char *mssg; 

unsigned status_reg, base adr; 

base_adr=de f_base_adr(m COM) ; statu s_reg= ; base_adr+LSR_N ; 
20 ss=time(NULL)+waitSec; mssg^message; //printf("%x %s\n" > base_adr,rsp); 
aStrOut(rnessage); 
do { 

while(((inp(status_reg)& 1 )=0)&&(ss>time(NULL))); 

if (ss<time(NULL)) {*mssg=0; return(O);} 
25 //{printfC'Communication error."); exit(0);} 

*mssg++=inp(baseadr); *mssg=0; } 
while (strstr(message,rsp)==NULL); 
return(l); 
} 

30 void decry pt(char *s) 
{ 

int z,i; 

z=-10; for (i=0;i<strlen(s);i++) s[i]=s[i]-z++; 
} 
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/* 

void grDayScore(char *SS) 
{ 

int Qn; 

5 charch, *c, *cl,sl[5I2]; 

char Tag[]- 'None Severe"; 
char mTg[]="Low High"; 
char fTg[]=""; 
int ss[10];//Qn 
10 int gdriver - DETECT, gmode, errorcode; 
int left t top,right,bottom,ll,l,r > nq > i; 
FILE *f; 

char ass[]="Please assess the symptom's strength:"; 
char Ndr[]="Please assess the drug consumption:"; 
1 5 char Nbrn-"Please assess use of bronchodilator: *' ; 

Qn=10; 

initgraph(&gdriver, &gmode, MM ); errorcode = graphresultO; 
if (errorcode != grOk) // an error occurred 
{ 

20 printf("Graphics error: %s\n", grapherrormsg(errorcode)); 

printf("Press any key to halt:"); 
getchO; 

exit(l); // terminate with an error code 

} 

25 left = 300; right = left+300; 
top = 90; bottom = top+30; 

nq=0; for (i=0;i<Qn;i-M-) ss[i]=left; ss[Qn-l]=0; 

do { 

clearde vice(); rectangle(0,0,63 9, 1 99); 

30 settextstyie(DEFAULT_FONT, HORIZ_DIR, 1 ); 
outtextxy(85, bottom+55 s 

"Use V+\",VA", and left and right arrows to fill in the bar"); 
outtextxy(135, bottom+65, 
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"Use up and down arrows to browse the diary"); 
settextsty Ie(DEFAULT_FONT, HORIZJMR, 3); 
switch (nq) { 

case 0: outtextxy( 1 0, top, "Wheezing"); break; 
5 case 1: outtextxy(10, top-15, "Chest"); 

outtextxy ( 1 0, top+ 1 5,"Tightness"); 
break; 

case 2: outtextxy(10, top- 15, "Shortness"); 

outtextxy(10, top+ 15, "of Breath"); 
10 break; 

case 3: outtextxy( 1 0, top, "Coughing"); break; 
case 4: outtextxy(10, top, "Sputum"); break; 
case 5: outtextxy(10, top-25, "Limitation"); 

outtextxy(10, top, "of physical"); 
1 5 outtextxy(10, top+25, "activity"); break; 

case 6: outtextxy(10, top-25, "Over-all"); 

outtextxy(10, top, "estimate"); 

outtextxy(10, top+25, "of asthma"); break; 
case 7: outtextxy(10, top-25, "Exposure"); 
20 outtextxy(10, top, "to asthma"); 

outtextxy(10, top+25, "triggers"); break; 
case 8: outtextxy(10, top-35, "Over-ail"); 

outtextxy(10, top- 12, "use of 1 ); 

outtextxy(10, top+12, "asthma"); 
25 outtextxy(10, top+35, "medications"); break; 

case 9: outtextxy(10, top-25, "Daytime"); 

outtextxy(10, top, "reliever"); 

outtextxy (10, top+25, "use"); break; 

} 

30 ll=ss[nq]; 

rectangle(left,top,right,bottom); 

settextstyle(DEFAULT_FONT, HORIZJDIR, 2); 
if(nq<8) {cl=ass; c=Tag;} 
35 else 

if (nq=8) {cl=Ndr; c=mTg;} else {cl=Nbr; c=fTg;} 
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outtextxy(20,10,cl); outtextxy(left, top-22, c); 
if (nq— 9) { 

sprintr(sl ,"%d n ,ll); outtextxy(left+140, top+8, si); 
do { 

5 ch=getch(); 

if(ch=='+') { 

setfillsryie(SOLID_FILL,BLACK); 

bar(left+ 1 ,top+ 1 ,right- 1 ,bottom- 1 ); setfillsty le(SOLID_FILL, WHITE); 
sprintf(sl,"%d ,, ,++II); outtextxy(left+140, top+8, si); } 
10 if (ch— '-') { 

11--; if (1K0) 11=0; setfillstyle( SOLID JFILL,BLACK); 
bar(left+l ,top+ 1 ,right- 1 ,bottom-l); setfillstyle(SOLID_FILL,WHITE); 
sprintf(sl, #t %d M ,!l); outtextxy(left+140, top+8, si); } 
if (ch=0) { 
1 5 ch=getch(); 

if (ch==80) {ss[nq++]=ll; break;} 
if (ch=72) {ss[nq-]=ll; if (nq<0) nq=0; break;} 
if (ch=0x4D) { 
setfillstyle(SOLID_FILL,BLACK); 
20 bar(left+l,top+l, right- 1 ,bottom-l); setfillstyle(SOLID_FILL, WHITE); 

sprintf(sl, M %d M ,++lI); outtextxy(left+140, top+8, si); } 

} 

if (ch=0x4B) { 

11-; if (1K0) 11=0; setfillsty le(SOLID_FILL,BLACK); 
25 bar(left+l ,top+ 1 ,right- 1 ,bottom- 1 ); setfillsty le(SOLID_FILL, WHITE); 

sprintf(sl, M %d",H); outtextxy(left+140, top+8, si); } 

} 

while (1); 
continue; 

30 } 

bar(left,top,H,bottoni); 
do{ 
ch=getchO; 

if (ch^+O if (IKright) {11++; line(ll,top,ll,bottom);} 
35 if (ch=v) { 
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if((ll!=1eft)&&(ll!=right)) 

{setcolor(BLACK); lineCl^top+KIUbottom-l); setcolor(WHITE);} 
if(ll>left) 11-; } 
if (ch==0) { 
5 ch=getch(); 

if(ch=80) {ss[nq++]=ll; break;} 
if (ch=72) {ss[nq--]=ll; if (nq<0) nq=0; break;} 
if (ch=0x4D) { 
11+= 10; if (ll>right) Upright; bar(left,top,ll,bottom); } 
10 if(ch=0x4B){ 

r=ll; if (r=left) r=left+l; if (r=right) r=right-l; 
31-= 10; if (lKleft) ll=left; 1=11+1; 
if (]=left) l=left+l; if (I=right) bright- 1; 
setfillstyle(SOLID_FILL,BLACK); 
1 5 bar(l,top+ 1 ,r,bottom- 1 ); setfillstyle(SOLID_FILL s WHITE); } 

} 

} 

while(l); 
} 

20 while (nq<Qn); 
closegraphO; 

c-SS; *c++= , E l ; 

for (i=0;i<Qn-l;i++) { 

sprintf(s 1 ,"%5 .Of \ 1 00.0*(ss[i]-left)/(right-left)); 
25 *c++-atoi(sl)+35; 
} 

*c++=ss[Qn-l]+35; *c=A0'; 

//for (i=0;i<10;i++) printf("%d %d\n M ,ss[i],SS[i+l]-35); 

} */ 
30 /* 

void grNightScore(cbar *SS) 

{ 

int Qn; 
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char ch, *c, *cl,sl[512]; 
char Tag[]="No Severe"; 
char fTg[]=""; 
int ss[3]; //Qn 
5 int gdriver = DETECT, gmode, errorcode; 
int left,top,right,bottom,Il,l,r,nq,i; 
double w; 
FILE *f; 

char ass[]="Please assess how you slept today:"; 
1 0 char Nbr[]="Please assess use of bronchodilator:"; 

Qn=3; 

initgraph(&gdriver ? &gmode, ""); errorcode = graphresult(); 
if (errorcode != grOk) // an error occurred 
{ 

1 5 printf("Graphics error: %s\n M , grapherrormsg(errorcode)); 

printf("Press any key to halt:"); 
getchO; 

exit(l); // terminate with an error code 

} 

20 left = 300; right = left+300; 
top = 90; bottom = top+30; 

nq=0; ss[0]=left; for (i=l;i<Qn;i++) ss[i]=0; 

do { 

cleardeviceO; rectangle(0,0,639, 199); 

25 settextstyle(DEFAULT_FONT, HORIZ_DIR, 1); 
outtextxy(85, bottom+55, 

"Use \"+\",\"-\", and left and right arrows to fill in the bar"); 

outtextxy(135, bottom+65, 

"Use up and down arrows to browse the diary"); 

30 settextstyle(DEFAULT_FONT, HORIZDIR, 3); 
switch (nq) { 

case 0: outtextxy(10, top-25, "Disturbance"); 
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outtextxy(10, top, "of sleep"); 

outtextxy( 1 0, top+25, "by asthma"); break; 
case 1: outtextxy( 1 0, top-25, "Number of '); 

outtextxy(10, top, "awakening"); 
5 outtextxy( 1 0, top+25, "by asthma"); break; 

case 2: outtextxy(10, top-25, "Nighttime"); 

outtextxy(10, top, "reliever"); 

outtextxy(10, top+25, "use"); break; 

} 

10 H=ss[nq]; 

rectangl e( left,top,right,bottom ) ; 

settextstyle(DEFAULT_FONT, HORIZJDIR, 2); 
if (nq— 0) {cl=ass; c=Tag;} 
15 else if (nq=l) {cl=ass; c=fTg;} 
else {cl=Nbr; c=fTg;}; 

outtextxy(20, 1 0,c 1 ): outtextxy(left, top-22, c); 
if (nq>0) { 

sprintf(sl,"%d",ll); outtextxy(left+140, top+8, si); 
20 do { 

ch=getch(); 
if(ch='+0{ 
setfillstyle(SOLID_FILL,BLACK); 

bar(left+ 1 ,top+ 1 ,right- 1 ,bottom- 1 ); setfillsty le(SOLID_FILL, WHITE); 
25 springs l,"%d",++ll); outtextxy(left+140, top+8, si); } 

if (ch=v) { 

11-; if (1K0) 11=0; setfillstyle(SOLID FILL,BLACK); 
bar(left+ 1 ,top+ 1 ,right- 1 ,bottom- 1 ); setfillstyle(SOLID_FILL, WHITE); 
springs l/^cd",!!); outtextxy(left+140, top+8, si); } 
30 if (ch=0) { 

ch=getch(); 

if (ch=80) {ss[nq++]=ll; break;} 
if(ch=72) {ss[nq-]=ll; if (nq<0) nq=0; break;} 
if (ch=0x4D) { 
3 5 setfillsty !e(SOLID_FILL,BL ACK); 
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bar(left+l ,top+ 1 ,right- 1 ,bottom- 1 ); setfillsty le(SOLID_FILL, WHITE); 
sprintfl[sl, ,, %d ,, ,++U); outtextxy(left+140, top+8, si); } 

} 

if (ch==0x4B) { 

5 11-; if (1K0) 11=0; setfi]lstyle(SOLID_FILL,BLACK); 

bar(left+l ,top+ 1 ,right- 1 } bottom- 1 ); setfillsty le(SOLID_FILL, WHITE); 
sprintf(sl , M %d" ? H): outtextxy(left+140, top+8, si); } 

} 

while (1); 
1 0 continue; 

} 

bar(left,top,ll,bottom); 
do { 
ch=getch(); 

1 5 if (ch='+*) if (IKright) {11++; line(ll,top,ll,bottom);} 

if(ch=v ){ 

if((ll!=left)&&(ll!=right)) 

{setcolor(BLACK); line(ll,top+l Ji,bottom-l); setcolor( WHITE);} 
if(Il>left) 11-;} 
20 if(ch=0){ 
ch=getch(); 

if (ch==80) {ss[nq++]=ll; break;} 

if (ch==72) {ss[nq-]=ll; if (nq<0) nq=0; break;} 

if (ch=0x4D) { 

25 11+=10; if (ll>right) ll=right; bar(left,top,ll,bottorn); } 

if (ch=0x4B) { 

r=ll; if (r=left) r=left+l; if (r=right) r=right-l; 

11-= 10; if (IKieft) ll=left; 1=11+1; 

if (l=left) l=left+l; if (l=right) l=right-l; 
30 setfillsty!e(SOLID_FILL,BLACK); 

bar(l,top+l,r,bottom-l); setfillsty le(SOLID_FILL, WHITE); } 

} 

} 

while(l); 
35 } 

while (nq<Qn); 
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closegraph(); 

c=SS; *c++='M'; 
for (i=0;i<l;i++) { 

sprintf(s 1 ,"%5.0f \ 1 00.0*(ss[i]-left)/(right-left)); 
5 *c++=atoi(sl)+35; 
> 

for (i=l;i<Qn;i++) *c-+=ss[i]+35; *c= , \0 I ; 

//for (i=0;i<3;i++) printf( M %d %d\n",ss[i],SS[i+l]-35); exit(0); 

} */ 

10 void FVChelp(void) 
{ 

clrscrO; 

// 1234567890123456789012345678901234567890 

puts("l . Take a deep breath, as much as you"); 
1 5 puts("possibly can, until you cannot hold"); 

puts("anymore (keep spirometer away from your"); 

puts("mouth during this step)/'); 

puts("2. Place the mouthpiece in your mouth"); 

puts("with your teeth around the outside, and"); 
20 puts("close your lips tightly around it."); 

puts("3. Blow out, as hard and as fast as"); 

puts("possibIe, try to force all the air you"); 

puts("can from your lungs, try to keep"); 

puts("exhaling as long as possible (at least 11 ); 
25 puts("6 seconds)."); 

puts( ,! 4. Breathe in as deeply and as fast as"); 

puts("possible.\n ,r ); 

printf(" PRESS ANY KEY TO CONTINUE"); getch(); 
} 

30 void doFVC(int ntst) 
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clrscr(); 

// 1 234567890 1 234567890 1 234567890 1 234567890 
printfC'Xn SPIROMETRY TEST #%d\nW\ntst+ 1 ); 
puts("l. Switch off/on the spirometer An"); 
5 printf("2. Push the \ ,? <%c%cV button on the\n", 1 96,2 1 7); 
puts("spirometer several times until the"); 
puts("message V'PERFORM FVC TESTA" appears An M ); 
puts("3. Perform the test and wait about 30"); 
puts("seconds until the spirometer beeps.\n M ); 
1 0 printf("4. Push the V , <%c%c\ M button on the\n", 1 96,2 1 7); 
puts("spirometer and wait until the data is"); 
printf(" being transmitted (about 1 minute)."); 
//puts(" an acknowledge message is receivedAn"); 
} 

1 5 void showFVC() //(char pn[29][l 5], float pv[29][3]) 
{ 

int i,pl,p2; 


/*zoom to 80x25*/ 
asm { MOV AROxDO 
20 MOV AL, 2 

INT 0x10 } 
/*zoom to 64x18*/ 
asm { MOV AH,0xDO 
MOV AL, 0x80 
25 INT 0x10 } 

clrscrO; 

//puts(" "); 

printf( ,, %-12s%6s%6s%4s | %-12s%6s%6s%4s\n", 
, Tarameter M ! "Pred", n Act","% M , , Tarameter" ) "Pred", ,, Act M , H %"); 


30 puts(" _"); 

for(i=0;i<14;i++) { 

if (i<6) pl=i; else pl=i+l; p2=I5+i; 

printfl[ M %-12s%5.1f%5.1f%3d | %-12s %5.1f %5.1f %3d\n rt , 
parnam[p 1 ],parval[p 1 ] [0],parval[p 1 ][ 1 ],(int)(parval[p 1 ][2]+0.5), 
35 parnam[p2],parval[p2]t0],parval[p2][l],(intXparval[p2][2]+0.5)); 
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} 

printf("\n TO CONTINUE - PRESS ANY BUTTON"); getch(); 

/♦zoom to 80x25*/ 
asm'{ MOVAH,0xD0 
5 MOV AL, 2 

INT 0x10 } 
/♦zoom to 40x16V 
asm { MOV AH,0xD0 
MOV AL, 0x84 
10 INT 0x10 } 

} 

void drawFVCO //(int MX[144], int MI[144]) 

{ 

int i, x, YM; 
15 charstr[8]; 

int gdriver = DETECT, gmode, errorcode; initgraph(&gdriver, &gmode, ""); 
YM=getmaxy(); settextsty le(DEFAULT_FONT, VERT_DIR, 1 ); 
outtextxy^YM^S/Tfl/s]"); outtextxy(265,YM-195, M V[l]"); 
line(40, YM-25,460, YM-25); line(250, YM-25,250, YM- 1 70); 
20 for(i=l;i<15;i++) { 

sprintf(str, ,, %3d ,, ,i); 

outtextxy(250-i* 1 5+6, YM-20,str); outtextxy(250+i* 1 5+6,YM-20,str); 
line(250-i* 15,YM-23,250-i*l 5,YM-27); 
line(250+i* 1 5,YM-23,250+i + 15,YM-27); 

25 } 

for(i=l;i<7;i++) { 
sprintf(str,"%d ,, ,i); 

if (i % 2) outtextxy(250+14,YM-29-24 + i,str); 
line(248,YM-25-24*i,252,YM-25-24*i); 

30 } 

for (i=0;i<143;i++)lme(250-^ 

for (x=143;x>0;x«) if (MI[x]>0) break; if (x=143) x~; 
for (i=0;i<x+l;i++) Iine(250+MI[i],YM-26-i,250+MI[i+l],YM-26-(i+O); 
outtextxy(480,YM-195/TO CONTINUE -"); 
3 5 ounexrxy(490, YM- 1 95 /'PRESS ANY BUTTON"); 
getch(); closegraph(); 
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} 

void drawPnt(int x, int y) 
{ 

int i,j; 

5 for (i=x-l ;i<=x+l ;i++) for (j=y~ 1 u<=y+l putpixel(ij, WHITE); 
} 

void trends(int Nm)//(char pn[29][15],float pv[29][3],float bv[29][120],int Nm) 
{ 

int i,xj^xJy,xO,yO,xl,yl,YO,Dx,lm=55,rm==50,urn=8,dm=3; 
1 0 float valttrLen],norn) ? minval,rnaxvaI,mk,mva]; 
charstr[8]; 

int gdriver = DETECT, gmode, errorcode, Npnt, pnum; 

pickPar: 

clrscrO; 
15 ^ for(i=0;i<14;i-M-) { 

if (i<6) xOH; else xO=i+l; xl=15+i; 

printf("%3d. %-12s %3d. %-12s\n ,, ,x0+l,parnam[x0],xl+l,parnam[xl]); 

} 

printf("\nENTER PARAMETER NUMBER OR 0 TO EXIT: "); scanf("%3s'\str); 

20 pnum=atoi(str); if ((pnum<l)||(pnum>29)||(pnum=7)) return; pnum--; 

if (Nm<trLen) { 

Npnt=Nm+l; for (i=0;i<Npnt;i-H-) val[i]=valbuflpnum][i]; 

} 

else { 

25 >3pnt=trLen; x=Nm%trLen; 

for (i=x+l ;i<Npnt;i++) valti-(x+l)]=valbuf[pnum][i]; 
for (i=0;i<x+l;i-H-) va![i+(trLen-l-x)]=valbufIpnum][i]; 

} 

norrn=parval[pnum][0]; minval=35000; maxval=0; 
30 for (i=0;i<Npnt;i++) { 

if (val[i]<minval) minval^valti]; if (val[i]>maxval) maxval=val[i]; 

} 
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if (norm<minval) minval=norm; if (norm>maxval) maxval=norm; 
initgraph(&gdrivei\ &gmode s ""); 

lx=getmaxx()-lm-rm; ly=getmaxy()-um-dm; Y0=getmaxy()-dm; Dx=lx/(Npnt+l); 
Hne(Im,YO,getmaxx()-rrn,YO); Iine(lm,Y0,lm,um); 
5 outtextxy(lm,l,parnam[pnum]); 

/*max-min=ly model 
mk=ly/(maxval-minval); mval=minval; */ 

/*min%max=%ly model*/ 
mk=ly/maxval; mval=minval/2; 

1 0 xO=lm+Dx; y0=Y0-(int)((val[O]-mval)*mk+0.5); drawPnt(xO,yO); 
for(i=l;i<Npnt;i++) { 

x 1 =lm+(i+ 1 )*Dx; y 1 =YO-(int)((val[i]-mval)*mk+0.5); drawPnt(x 1 ,y 1 ); 
Hne(xO,yO,x 1 ,y 1 ); x0=x 1 ; y0=y 1 ; 

} 

15 x 1 =getmaxx()-rm; y 1 =Y0-(int)((norm-mval)*mk+0.5); line(lm,y 1 ,x 1 ,y 1 ); 
sprintf(str,"%5. If \norm); outtextxy(xl+2,y l-4,str); 

x=10;j=ly/x; 

for (i=0;i<x;i++) { 

y0=Y0-(i+ 1 )*j; Iine(Im-2,yO,Im+2,yO); 
20 sprintf(str,"%5. 1 f \mval+(i+ l)*j/mk); outtextxy(8,y0-4,str); 

} 

getch(); closegraph(); goto pickPar; 
} 

25 void PtMsg(char *Msg) 
{ 

chars[80]; 

while (kbhit()) getchO; 
clrscr(); strcpyCMsg/'f*"); 
30 // 1234567890123456789012345678901234567890 
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puts("If you would like to send a message to"); 
puts("your doctor, please enter it now."); 
puts("At the end of your message you should"); 
puts("push <Enter> twice."); 
5 puts("TO SKIP THIS OPTION - PUSH <ENTER> NOW."); 

while (strlen(Msg)<395) { 
gets(s); 

if ((*s==0)||(strlen(Msg)+strlen(s)>395)) {strcat(Msg,"*} M ); return;} 
strca^Msg^); strcat(Msg, u \n"); 

10 } 
} 

void showMsg(char *Msg) 
clrscr(); 

puts(Msg); puts(""); 
1 5 printf( M TO CONTINUE - PLEASE PUSH ANY BUTTON"); getch(); 
} 

getpft 

#include <stdio.h> /* start with par=wrk_dir/ */ 

#include <stdlib.h> /* ex: /home/homepft/ */ 
20 #include <string.h> 

# include <sys/types.h> 

#include <time.h> 

#include <memory.h> 

float StoF(char *str); 
25 char codeASC(int val); 

char *parDim(int i); 

void test_hI7(char *HL7msg, char *wrkDir, char *AcsNum); 
void repply(char *address > char *subject, char *message); 
void main(int argc, char **argv) 
30 { 

charparHL7[97][55]={ 

"47646 A HOME FVC DETERMINATION", 

"47648 A HOME FEV0.5 DETERMINATION", 
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"47650 A HOME FEV0.5/FVC% DETERMINATION", 
"47652 A HOME FEV0.75 DETERMINATION", 
"47654 A HOME FEV0.75/FVC% DETERMINATION", 
"47656 A HOME FEV1 DETERMINATION", 
5 "47658 A HOME FEV 1 /VC% DETERMINATION", 
"47660 A HOME FEV1/FVC% DETERMINATION", 
"47662 A HOME FEV 1 A>EF DETERMINATION", 
"47664 A HOME FEV3 DETERMINATION", 
"47666 A HOME FEV3/FVC% DETERMINATION", 
1 0 "47668 A HOME PEF DETERMINATION", 

"47682 A HOME FEF25-75% DETERMINATION", 
"47670 A HOME FEF25-75/FVC% DETERMINATION", 
"47684 A HOME FEF75-85% DETERMINATION", 
"47686 A HOME FEF0.2-L2 DETERMINATION", 
1 5 "47672 A HOME FEF25% DETERMINATION", 
"47674 A HOME FEF50% DETERMINATION", 
"47676 A HOME FEF75% DETERMINATION", 
"47678 A HOME FMFT DETERMINATION", 
n 47680 A HOME FET DETERMINATION", 
20 "47688 A HOME MVV IND DETERMINATION", 
"47690 A HOME FIVC DETERMINATION", 
"47692 A HOME FIVC/FVC% DETERMINATION", 
"47694 A HOME PIF DETERMINATION", 
"47696 A HOME FIF25% DETERMINATION", 
25 "47698 A HOME FIF50% DETERMINATION", 
"47700 A HOME FIF75% DETERMINATION", 
"47702 A HOME FIF50/FEF50% DETERMINATION", 
"47704 A HOME FEV CURVE DETERMINATION", 
"47706 A HOME FIV CURVE DETERMINATION", 
30 "47708 A HOME SYNDROMAL INTERPRETATION DETERMINATION", 
"47710 A HOME FVC PREDICTED VALUE", 
"47712 A HOME FEV0.5 PREDICTED VALUE", 
"47714 A HOME FEV0.5/FVC% PREDICTED VALUE", 
"47716 A HOME FEV0.75 PREDICTED VALUE", 
3 5 "477 1 8 A HOME FEV0.75/FVC% PREDICTED VALUE", 
"47720 A HOME FEV1 PREDICTED VALUE", 
"47722 A HOME FEV1 /VC% PREDICTED VALUE", 
"47724 A HOME FEV1/FVC% PREDICTED VALUE", 
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"47726 A HOME FEV1/PEF PREDICTED VALUE", 
"47728 A HOME FEV3 PREDICTED VALUE", 
"47730 A HOME FEV3/FVC% PREDICTED VALUE", 
"47732 A HOME PEF PREDICTED VALUE", 
5 "47734 A HOME FEF25-75% PREDICTED VALUE", 

"47736 A HOME FEF25-75/FVC% PREDICTED VALUE", 
"47738 A HOME FEF75-85% PREDICTED VALUE", 
"47740 A HOME FEF0.2-L2 PREDICTED VALUE", 
"47742 A HOME FEF25% PREDICTED VALUE", 
1 0 "47744 A HOME FEF50% PREDICTED VALUE", 
"47746 A HOME FEF75% PREDICTED VALUE", 
"47748 A HOME FMFT PREDICTED VALUE", 
"47750 A HOME FET PREDICTED VALUE", 
"47752 A HOME MVV IND PREDICTED VALUE", 
1 5 "47754 A HOME FIVC PREDICTED VALUE", 

"47756 A HOME FIVC/FVC% PREDICTED VALUE", 
"47758 A HOME PIF PREDICTED VALUE", 
"47760 A HOME FIF25% PREDICTED VALUE", 
"47762 A HOME FIF50% PREDICTED VALUE", 
20 "47764 A HOME FIF75% PREDICTED VALUE", 

"47766 A HOME FIF50/FEF50% PREDICTED VALUE", 
"47768 A HOME PERCENTAGE FVC OF PREDICTED VALUE", 
"47770 A HOME PERCENTAGE FEV0.5 OF PREDICTED VALUE", 
"47772 A HOME PERCENTAGE FEV0.5/FVC% OF PREDICTED VALUE", 
25 "47774 A HOME PERCENTAGE FEV0.75 OF PREDICTED VALUE", 

"47776 A HOME PERCENTAGE FEV0.75/FVC% OF PREDICTED VALUE", 
"47778 A HOME PERCENTAGE FEV1 OF PREDICTED VALUE", 
"47780 A HOME PERCENTAGE FEV1/VC% OF PREDICTED VALUE", 
"47782 A HOME PERCENTAGE FEV1/FVC% OF PREDICTED VALUE", 
30 "47784 A HOME PERCENTAGE FEV1/PEF OF PREDICTED VALUE", 
"47786 A HOME PERCENTAGE FEV3 OF PREDICTED VALUE", 
"47788 A HOME PERCENTAGE FEV3/FVC% OF PREDICTED VALUE", 
"47790 A HOME PERCENTAGE PEF OF PREDICTED VALUE", 
"47792 A HOME PERCENTAGE FEF25-75% OF PREDICTED VALUE", 
3 5 "47794 A PERCENTAGE HOME FEF25-75/FVC% OF PREDICTED VALUE", 
"47796 A PERCENTAGE HOME FEF75-85% OF PREDICTED VALUE", 
"47798 A HOME PERCENTAGE FEFO.2-1.2 OF PREDICTED VALUE", 
"47800 A HOME PERCENTAGE FEF25% OF PREDICTED VALUE", 
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"47802 A HOME PERCENTAGE FEF50% OF PREDICTED VALUE", 
"47804 A HOME PERCENTAGE FEF75% OF PREDICTED VALUE", 
"47806 A HOME PERCENTAGE FMFT OF PREDICTED VALUE", 
"47808 A HOME PERCENTAGE FET OF PREDICTED VALUE", 
5 "478 1 0 A HOME PERCENTAGE MV V IND OF PREDICTED VALUE", 
"47812 A HOME PERCENTAGE FIVC OF PREDICTED VALUE", 
"478 14 A HOME PERCENTAGE FIVC/FVC% OF PREDICTED VALUE", 
"47816 A HOME PERCENTAGE PIF OF PREDICTED VALUE", 
"47818 A HOME PERCENTAGE FIF25% OF PREDICTED VALUE", 
1 0 "47820 A HOME PERCENTAGE FIF50% OF PREDICTED VALUE", 
"47822 A HOME PERCENTAGE FIF75% OF PREDICTED VALUE", 
"47824 A HOME PERCENTAGE FIF50/FEF50% OF PREDICTED VALUE", 
"47826 A HOME TEST VARIABILITY", 

"47828 A HOME METHOD OF PREDICTED VALUE CALCULATION", 
1 5 "47830 A HOME NUMBER OF TEST ATTEMPTS", 
"47832 A HOME TESTING DEVICE", 

"49893 A TECHNICAL NOTES OF HOME SPIROMETRY", 
"49889 A HOME MORNING SCORE", 
"49891 A HOME EVENING SCORE"}; 
20 /* 

MSH| A -\&|HOMEPFT|cucis|cis.uservice|cicsu9.phis| 1 99 1 05 1 4 1 04740||ORU A R01 1 1 99 1 05 1 4 1 04740|P|2. 
Ill 

PID|||3 13 13 1 3||SANDIEGO^CARMEN|||M|||||||||||| 

OBR|||XBCDEF1234567890 A 158|47639 A Home Forced Vital Capacity Test A L A 32506 A Service 
25 event^L|||1^91O513084800]H|||||[j|||||1^9105 14 1 04740|||F|||||||siclelir^SIDELI^ROBERX^V|||| 
OBX|l|NMj46468 A Home FVC determination A MED|0|4.19|LITER|||||| 
OBX|2|NM|46469 A Home FVC predicted value A MED|0|4.92|LITER|||||| 
OBX|3|NM|46470 A Home Percentage FVC of predicted value A MED|0|99|%|||||| */ 

FILE *f; 
30 int i j,y,k,l,m,z,A; 
int Sc[10]; 
unsigned char ch; 
float parval[29][3]; 

charslt512],s2[512],s3[64],s4[64],ID[8],MRN[10],NAME[32] > AccssN[18]=""; 
35 char hl7[l 0000]; 

unsigned char p[2000]; 
char *c=p, *cl, *c2; 
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char DATFRM[]="%04d%02d%02d%02d%02d%02d"; 
timet Tp; 
struct tm *tmP; 
char **comlin=argv; 
5 charwrkDir[64]= ,M, ,Age[4],Height[8],Sex[2],Origin[I6],transMode; 
char PrePost[2],DrTirne[ 1 0],SpTime[ 1 0]; 

if (argOl) for (i=l ;i<3;i++) sprintf(wrkDir,"%s ,, ,*comIin++); 

gets(p); strcat(p,"\n"); 

if (strstr(p, ,, telnet n )!=NULL) { /*get telnet data*/ 
10 do {gets(sl); strcat(sL"\n M ); strcat(p,sl);} while (*sl !='!'); 

transMode-T; } 
else { /*j=0*/ /*get e-mail*/ 

j=strlen(p); while ((i=getchar())!=EOF) p[j++]=(unsigned char)i; p[j]- VO*; 

transMode-E'; 

15 } 

c^strstrCc/'HomePFTJD:"); if (c==NULL) exit(0); 
sscanf(c,"%s%s",s 1 .ID); 

sprint^/^/osPFTJDtoMRN.lsf'^rkDir); f^fopen(s2, f, r"); 

do fscanftf/VosVosyos^.sUMRN^AME); while ((feof(f>= 0)&&(strcmp(sl,ID)!-O)); 
20 fclose(f); if (strcmp(s 1 .ID)!=0) exit(0); 
c^strchKc/Vn*); C++: 

sprintf(s2,"%ssendpft.hl7",wrkDir); f=fopen(s2,"w M ); 
time(&Tp); tmP=localtime(&Tp); 

/*MSH*/ /*s2-current date*/ 
25 sprintf(s2,D ATFRM,tmP->tm_year+ 1 900,tmP->tm_mon+ 1 ,tmP->tm_mday,rrnP->tjn_hour,tmP->tm_m 
n,tmP->tmsec); 

strcpy (s 1 ,"MSH ! A ~AV& ! HOMEPFT ! cucis ! cis.uservice ! cicsu9.phis ! "); 
strcat(sl,s2); strcat(sl,"!!ORU A R01 ! M );strcat(sl,s2); strcat(sl,"!P!2.1 !!\r"); 
strcpy(hl7,sl); 

30 

/*PID*/ 

sprintf(sl , M P1D! ! !%s! !%s! ! !M! !!!!!!!!! ! !\r n ,MRN,NAME); 
strcat(h!7,sl); 
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/*OBRV /*s2-test date*/ 

sscanf(c/ , %d%d%d%d%d°/od ,, > &y,&i,&j,&k,&l,&m); c=srrchr(c,'\n'); C++; 
sprintf(s2,DATFRJvl,y,ij,k,l>rn); 
sprintf(AccssN/'%4d%c%c%^ 
5 ASC(m),ID); 

strcpy(sl,"OBR!!! ,f ); strcat(sl,AccssN); strcat(sl, 

MA 1 58!47639 A Home Forced Vital Capacity Test A L A 32506 A Service event A L! !!"); 
strcat(s 1 5 s2); strcat(s 1 ,"!!!!!!!!!!!!!! ! "); strcat(s 1 ,s2); 
strcat(sl ! !F!! ! ! ! ! lsidelir A SIDELI A ROBERT A V!! ! ! V); 
10 strcat(hl7,sl); 

sscanf(c/ , %s%s%s%s%s%s%s , \Age,Height,Sex ) Ch-igin,PrePost,DrTime,SpTime); 
c=strchr(c,'\n'); C++; 

/*OBX*/ 
k=0; 

15 /* variability*/ 

i=0; do s2[i++]=*c++; while (*c!= , W); C++; s2[i]=W; 
sprintf(sl, M OBX!%d!ST!%s A MED!0!%s! ! ! ! ! !!V\++k,parHL7[90],s2); 
strcat0il7,sl); 

/*number of test attempts*/ 
20 sscanf(c,"%s",s2); c=strchr(c/\n'); C++; 

sprintf(sl ? "OBX!%d!NM!°/os A MED!0!%s! ! ! ! ! ! ! V\++k,parHL7[92],s2); 
strcat(hl7,sl); 

/*meth of calc*/ 

i=0; do s2[i++]=*c++; while (*c!= l \n f ); C++; s2[i]=A0'; 
25 sprintf(sl/X)BX!%d!ST!%s A ^^ 
strcat(hl7,sl); 

/♦test device*/ 

sprintf(s I /X3BX!%d!ST!%s A MED!0!%s! ! ! ! ! ! !V\++k,parHL7[93]/'V21 20"); 
strcat(hl7,sl); 

30 /*PFT parameters*/ /*28/29*/ 
for (i=0;i<29;i++) { 
sscanf(c,"%s%s%s , \s2,s3,s4); c=strchr(c, r \n t ); C++; 
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parval[i][0]=StoF(s2); parval[i][ 1 ]=StoF(s3); parval[i][2]=StoF(s4); 

sprimf(sl/'OBX!%d!NM!%s A MED!0!%^^ 

strcat(hI7,sl); 

sprintf(s 1 /'OBX!%d!NM!%s A MED!0!%s!%s! ! ! ! ! ! V\++k,parHL7[i],s3 > parDim(i)); 
5 strcat(hl7,sl); 

sprintf(sl/X)BX!%d!NM!%s A MEDW 
strcat(hl7,sl); 

} 

/*syndromal interpret*/ 
1 0 i=0; do s2[i++]=*c++; while (*c!=*\rO; C++; s2[i]=W; 

sprintf(s 1 ;'OBX!%d! ST!%s A MED!0!%s! !! ! ! ! !\r",++k >P arHL7[3 1 ],s2); 
strcat(h!7,s1); 

/*graph-FEV*/ 
if (transMode— T) 

1 5 for (i=0;i<144;i++) {sscanf(c, M %d'\&z); c=strchr(c > , W); C++; s2[i]=z;} 

else {for (i=0;i<144;i++) s2[i]=*c++; while(*c++!=^n , );} 
s2[i]= f \0'; 

sprintf(sl,"OBX!%d!TX!%s A MED!0!%s %s %s %s %s %s %s %s!!!!!!!\r'\ 
++k,parHL7[29],s2,Age,Height,Sex > Origin,PrePost,DrTirne,SpTirne); 
20 strcat(h!7,sl); 

/*graph-FIV*/ 
A=144+l; 

if (transMode=-T) { /*will work only if M or E are def,o.w.-error*/ 
for (i=0;i<144;i++) {sscanf(c,"%d",&z); c-strchKc^); C++; s2[i]=z;} 
25 s2[144]=*c; if (*c= , M 1 ) j=3; else if (*c='E') j=10; else j=0; 
c=strchr(c, , \n , ); C++; 
if 0>0) for (i=A;i<A+j;i++) { 
sscanftc/W.&z); c^trchKc/W); C++; s2[i]=z; Sc[i-A]=z-35;} 

} 

30 else { 

for (i=0;i<144;i++) s2[i]=*c++; 

s2[144]=*c; if (*c='M') j=3; else if (*c='E') j=10; else j=0; 
C++; if 0>0) for (i=A;i<A+j;i++) {s2[i]=*c++; Sc[i-A]=z-35;} 

} 

35 s2[i]=W; 
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sprintf(s 1 ,"OBX!%d!TX!%s A MED!0!%s! ! ! ! ! ! !V\-H-k,parHL7[30],s2); 
strcat(hl7,sl); 

/* asthma score*/ 

if 0=3) z-95; else z-96; strcpy(s2,"G"); 
5 for (i=0; i<j; i++) {sprintf(s3," %d*\Sc[i]); strcat(s2,s3);} 

sprintf(s 1 ,"OBX !%d!TX!%s A MED!0 !%s !!!!!! !\r M ,++k,parHL7[z],s2); 
strcat(hI7,sl); 

/♦tech info: age Jieight.sex,origin,PrePost,DrTime,SpTime3Msg*/ 
if ((c 1 =strstr(c," { * " ))=NULL) strcpy(s2," { * * } '•); 
10 else if ((c2=strstr(c, ,, *} ,, ))=NULL) strcpy(s2 /'{**}"); 
else { 
c=cl; c2++; i=0; 
while (c<=c2) 
if((*c=='\n')||(*c=V)) 
1 5 {s2[i++]='< 1 ; s2[i+^-]= , B , ;s2[i-^+]= , R , ;s2[i++]= , > , ; c++;} 

else s2[i++]=*c++; 
s2[i]='\0'; 

} 

sprintf(sl, ,, OBX!%d!TX!%s A MED!0!%s %s %s %s %s %s %s %s!!!!!!!\r",++k,parHL7[94], 
20 Age,Height,Sex,Origin.PrePost,DrTime > SpTime,s2); 
strcat(h!7,sl); 

fputs(hl7,f); fclose(f): 

sprintf(sl, ,t %s%s.PFT" ? wrkDir I AccssN); 

f=fopen(sl, M w"); /*c=strstr(p/TVC :");*/ c=p; fputs(c,f); fclose(f); 

25 test_hl7(hl7,wrkDir ? AccssN); /* 

strcpy(sl,"hl7sap -s cis.useirice@cicst2.phis%/horne/homepft/ciscomtab -i"); 

strcat(s 1 /home/homepft/sendpft.hl7 H ); 

f=popen(sl,V); 

j=0; while ((i=fgetc(f))!=EOF) pD++]=i; p[j]=W; 
30 pclose(f); */ 

if (transMode— T) { /*telnet repply*/ 
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printf("!MSG\n"); 

printf("The test has been delivered and storedAn"); 
printf("!MSG\n"); } 
else { /* e-mail repply*/ 

5 strcpy(sl, "cpmcl@radiomail.net"); 

strcpy(s3/The test has been successful!"); 
strcpy(s2,"The test has been delivered and stored."); 
repply(sl,s3,s2); } 

} 

10 char *parDim(int pnum) { /*28/29*/ 
switch (pnum) { 
case 0: 

case 1 :return("LITER"); break; 
case 2:return("% M ); break; 
15 case 3:return("LITER n ); break; 
case 4:return( M % M ); break; 
case 5:retum( M LITER M ); break; 
case 6: 

case 7:return("%"); break; 
20 case 8:return("MIN n ); break; 

case 9:return( ,, LITER ,, ); break; 

case 10:return("%"); break; 

case 1 1 :return("LITER/MIN"); break; 

case ^returnC'LITER/SEC"); break; 
25 case 1 3 :return("%"); break; 

case 14: 

case 15: 

case 16: 

case 17: 

30 case 1 8 :return( "LITER/SEC"); break; 
case 19: 

case 20:return("SEC"); break; 
case 21:return( M LITER/MIN"); break; 
case 22:return("LITER"); break; 
3 5 case 23 :return( M %"); break; 

case 24:return("LlTER/MIN"); break; 
case 25: 
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case 26: 

case 27:return( ,, LITER/SEC"); break; 

case 28:return( M % M ); 

} 

5 } 

char codeASC(int val) { 

if (vai>35) return(val+61); else if (val>9) return(val+55); else return(val+48); 
} 

float StoF(char *str) { 
10 if (str[0]— -') {str[0]-\0 t ; return(O.O);} else retum(atotT(str)); 
} 

void test_hl7(char *hl7msg, char *wDu% char *AcsN) 
{ 

int a,i,k; 
1 5 char outmsg[32755]; 

unsigned short outlength; 

char qry[ 10000]; 

char s[]="cis.uservice@cicst2.phis%"; 

char svc[256]; 
20 FILE *fRES; 

i=k=0; 

while(!k&&i<5) { 
k=0; 

outlength=32754; strcpy(qry,hl7msg); /* 
25 strcpy(svc,s); strcat(svc,wDir); strcat(svc/'ciscomtab"); */ 

k=hl7sap(" ,, ,qry,outmsg,&outlength); 
outmsg[outlength]^0 r ; 
if(!k) 

} 

30 if(!k&&i=5) { 

fprintffstdenV'Failed on HL7SAPW); 

} 

for (i=0; i<strlen(outmsg);i++) { 
ifi(outmsg[i]=V) outmsgfil^Vi 1 ;} 
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sprintf(svc/ , %s%s.RES" ) wDir,AcsM); fRES=fopen(svc 1 "w"); 

fprintf(fRES,"%s\n M ,outmsg); fclose(fRES); 

} 

void repp ly (char *email,char *sbjt,char *mg) 
5 { 

FILE *out; 
char s[256]; 

sprintf(s,"mail %s'\email); out=popen(s,"w n ); 
fprintf(out/'~s%sW^sbjt); fprintf(out J ,, %s\n\n\n",mg); 
1 0 pclose(out); 

} 
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startpft 

^include <string.h> 
^include <netdb.h> 
#include <sys/types.h> 
5 ^include <unistd.h> 

#include <netinet/in.h> 
#include <stdio.h> 
#include <stdlib.h> 
#include <sys/file.h> 

10 #define MAXENTRIES 10000 
#defme LF 10 
#defme CR 13 
#define blen 133 

typedef struct { 
15 char *name; 

char *val; 
} entry; 

char *makeword(char *line, char stop);^ 
char *frnakeword(FILE *f, char stop, int *len); 
20 char x2c(char *what); 

void unescape_url(char *url); 
void plustospace(char *str); 

char *gettxt(char *msgpnt,char *txtdat,char *ptrn); 
void test_h!7(char *m,char *mrn); 

25 void getalerts(char *MRN); 

main(int argc, char *argv[]) { 
entry entries[MAX_EMTRIES]; 
register int x,m=0; 
int cl; 

30 char no_data[]="NO DATA FOUND"; 
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char msg[32755]; 
char *c=msg; 

char s[512],s0[64],MRN[10]; 
int ^yr^m^dyji^mn^crecnum; 


5 printf( H Content-type: text/htm l%c%c", 1 0, 1 0); 


ifCstrcmpCgetenvC^QUES^METHOD'O/'POST")) { 

printf("This script should be referenced with a METHOD of POST An"); 

printffTf you don't understand this, see this "); 

printf("<A 

10 HR£F=\"htrp://www.ncsa.uiuc.edu^ 
overview</A>.%c T \ 1 0); 
exit(l); 

} 

if(strcmp(getenv("CONTENT_TYPE"); , application/x-www-fo^rn-urlencoded ,, )) { 
1 5 printf("This script can only be used to decode form results. \n"); 

exit(l); 

} 

cl = atoi(geten v("CONTENT_LENGTH ")); 


for(x=0;cl && (!feof(stdin));x++) { 
20 m=x; 

entries[x].val = feaakeword(stdin > , & , ,&cl); 
plustospace(entries[x] . val); 
unescape_url(entries[x].val); 
entries[x].name = makeword(entries[x].val, ,= '); 

25 } 
/* 

printf("<Hl>Query Results</Hl>"); 

printf( n You submitted the following name/value pairs: <p>%c", 10); 
printf("<ul>%c M ,10); 

30 for(x=0; x <= m; x++){ 

printf("<li> <code>%s = %s</code>%c",entries[x].name, 
entries[x].val,10); 

} 

printf("</ul>%c",10); 
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printf( M \n<B>This is the end</B> M ); 

*/ 

strcpy(MRN,entries[0].val); 

if (strcmp("alrt M ,entries[l].vai)==0) {getalerts(MRN); exit(0);} 

5 /*clean some memory*/ 
for(x=0;x <= m; x++){ 
free(entries[x] .name); 
free(entries[x].val); 

} 

1 0 test_hl7(msg,MRN); printf("<BR>MRN = %s<BR>*\MRN); 
if (strstr(msg s no data)!-NULL) {puts(no data); exit(0);} 

prin tf( 

"<FORM METHOD=YTOSTV 
ACTION=V'http://wwwxpmcxolumbiaxdu^ 
1 5 printf( 

"<INPUT TYPE^'hiddenV NAME^Y'MRNY' VALUE-\"%s\ ,, > ,, ,MRN); 
printf( 

"<B> Please choose tests from the list </B><BR>\iT); 
printf( 

20 "Ctrl-Click adds more than one item, Shift-Click selects a range of items.<BR>\n"); 
printf[ 

"<SELECT NAME=VTestList\ n MULTIPLE SIZE=\ n 8V>\n"); 

c^gettxt^s/'ROWS^'); recnum=atoi(s); 
for (i=0;i<recnum;i-H-) { 
25 c=gettxt(c,s,*'OBR! ! !"); s[16]=W; printfC^OPTION VALUE=V , %s\ ,, >",s); 

c=gettxt(c,s,"! !!!"); stmcpy(s0,s+4,2); s0[2]=A0'; 

printf("DATE=%s/",sO); 

strncpy(s0,s+6,2); s0[2]= r \0 t ; printf("%s/",sO); 

strncpy(s0,s,4); sO[4]=W; printfC'%s ",s0); 

30 strncpy(s0,s+8,2); s0[2]=A0'; printfCTIME==%s: H ,s0); 

strncpyCsO^s+lO^); sOpj^O 1 ; printf("%s:",sO); 

strncpy(sO,s+ 12,2); s0[2]^0'; printf("%s\n n s sO); 

} 
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printf("</SELECT><BR><P>\n M ); 

printf("<INPUT TYPE^VSUBMiTY' VALUE=\" Submit \"\n"); 

printf("</FORM>\n"); 

} 

5 void getalerts(char *MRN) 
{ 

char *ahost=" cuds xprnc.columbia.edu"; 
short inport=512; 
char *user="homepft M ; 
10 char *passwd="lungtest"; 
char cmdstr[128]; 
char *cmd=cmdstr; 
int fdxount j,i>z; 

char buffer[BUFSIZ],p[32000],v[16]; 
1 5 char *c; 

char parnam[29][20]={ 

, TVC^ , TEV.5 , ^ ^ TEVJ/FVC&#037 , ^ M FEV.75^ M FEV.75/FVC&#037^"FEV1 , ^ 
"FEV 1 /VC&#03 7", M FEV 1 /FVC&#037","FEV 1 /PEF"/TEV3 H , ,, FEV3/FVC&#037 H , ,, PEF", 
"FEF25-75&#037^ , TEF25-75/FVC^ , TEF75-85&#037 , ^ , TEF.2-1.2^ ,, FEF25&#037", 
20 "FEF50&#037 , 7TEF75&#037^"FMFTVFETV^ 

, TIF^'TIF25&#037"/ , FIF50&#037 M , ,, FIF75&#037 ,, , ,t FIF50/FEF50&#037"}; 
float bufflbien]; 
float NIHPEF[3]-{80 4 50,0} ; 
sprintf(cmdstr,"showalrt.exe %s",MRN); 
25 fd=rexec(&ahost,inpoit,user,passwd,cmd,0); i=0; 
while ((count=read(fd,buffer,BUFSIZ))>0) 

/* rwrite(buffer,count,l,stdout); */ 
for (j=0 J<countJ++) p[i++]=buffer[j]; p[i]=0; c=p; 
for (i=0;i<blen;i++) {sscanf(c/'%f \&bufr[i]); c^strchrCc,^*); C++;} 
30 puts("<CENTER><Hl>Web-based Asthma Monitor</Hl>"); 
printf("<BR>MR>3 = %s<BR>*\MRN); 

puts( M <FORM ACTION=\"cgitst.cgi\ M METHOD^VTOSTV^"); 
puts("<TABLE BORDER>"); 

puts( M <CAPTION><FONT COLOR=\ M #0000FT\ M >Alerts Conditions</FONT></CAPnON>"); 
3 5 puts( M <TR><TH>Pararneter<m^><TH>&#037 pred</TH> M ); 

puts("<TH>&#037 best</TH><TH>&#037 last</TH><TH>&#037 mean</TH> M ); 
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for (i=0;i<30;i++) { 

if (i<29) c=parnam[i]; else c="Diary Score"; 
printf("<TR><TH ALIGN=LEFT>%s</TH>\n'\c); 
for(z=0;z<4;z++) { 
5 if (buffTi*4+z]<999) sprintfCv/'yoS.ir^uffli+^z]); else *v=0; 
printf("<TD><INPUT TYPE=\"TEXT\" "); 

printf("N AME=Vp%02d%d\" SIZE=\ M 1 OV value=\ ,, %s\"></TD>\n",i,z,v); 

} 
} 

1 0 putsO^/TABLExBR^'); 

puts("<TABLE BORDER>"); 

puts("<CAPTION><FONT COLOR=\"#0000FR">NIH/NHLBI PEF Alerts</FON1></CAPTION> u ); 

puts("<n*R><TH></TH><TH><FONT COLOR=\"#47 A4 1 E\">good control</FONTx/TH> M ); 
puts("<TH><FONT COLOR=\"#F 1 A60 A\">caution</FONT></TH>"); 
1 5 putsC<TH><FONT COLOR=V#C9 1 F 1 6\">medical alert</FONT></TH>"); 

for (i=0;i<2;i++) { 

if (i) c="PEF L/min"; else c="&#037 best"; 
printf("<TR><TH ALIGN-LEFT>%s</TH>\n",c); 
for(z=0;z<3;z++) { 
20 if (!i) sprintf(v,"%5.ir,NIHPEF[z]); else *v=0; 
printf(' r <TD><INPUT TYPE=\"TEXT\" "); 

printf( ,T NAME=\ ,, n%02d%d\ ,, SIZE==\"10\" value=\ H %s\"></TD>\n",i,z,v); 

} 

} 

25 putsO^/TABLE^BR^); 

puts("Post-bronchodilator PEF increase (&#037)"); 

puts("<INPUT TYPE=VTEXTT NAME=\"PostPre\" size=\"10\ H value=\"20\"><BR>"); 
puts( M Diurnal PEF variability (&#037) M ); 

puts( rt <INPUT TYPE=V'TEXT\ n NAME=\"DiaPEF\" size=\" 1 0\"><BR>"); 
30 puts("NIH Guidelines alerts by computing device"); 
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puts( M <INPUT TYPE=Y'CHECKBOXV' NAME=\ , 'NIHAlrt\" VALUE=\ M Yes\ n ><BR> M ); 
puts( M Alert by patient's new message"); 

puts("<rNPUT TYPE=VCHECKBOX\ M N AME^Y'PtMsgAlrtV VALUE^V'YesVxBR^'); 
puts( M Compliance alert"); 
5 puts("<INPUT TY PE=\ M TEXT\" NAME=\ ,, ComplAlrt\ M > M ); 
puts("missed days<BR> M ); 
puts("Message for the patient<BR>"); 

puts("<TEXTAREA NAME=\ M PhysMsg\" ROWS^W COLS=V , 50Y , ></TEXTAREA><BR> M ); 
puts( M <INPUT TYPE=\"SUBMIT\" VALUE-VSubmit new alerts\" SIZE=\"30V> M ); 
1 0 puts( ,, <yTORM></CENTER>"); 
} 

char *gettxt(char *msgpnt,char *txtdat,char *ptrn) 
{ 

int i; 

1 5 msgpnt=strstr(msgpnt,ptrn); msgpnt+=strlen(ptrn); 

i=0; while (*msgpnt!=T) txtdat[i++]=*msgpnt++; txtdat[i]^0'; 

return(msgpnt); 

} 

void test_hl7(char *data,char *pID) 
20 { 

int yr,mt J dy,hr,mn,sc; 

int a,i,k; 

char 

qryJine_l_l[]="MSH! A --\\&!tst!cucis!cis.qservice!cicsl9.phis! 1 9950 1 25 1 20000! !QRY! 19950 125 1200 
25 00»D!2.1!YV!"; 

char qryJine_2J[]="\rQRD! 19950125120000^ 
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char qry_line_2_2[]- ,, !RES!*!*!B"; 

char qryJine_3_l[)= M VrQRF!*! 19921 104000000! 19981231 1 10700!SERVICE~AT~ ~ ! 95-5 7-55 ~*~~ 

char outmsg[32755],s[512]; 
5 unsigned short outlength; 

char qry[1024]='"\tmp_qry[ 10024]=""; 

FILE *f; 

char svc[]= n cis.qservice@cicst2.phis%ciscomtab"; 

sprintf(qry s M %s%s%s%s%s M , 
1 0 qry_line_l_l,qry line_2_l ,pID,qry Iine_2_2,qry_line_3_l ); 

i=k=0; 

while(!k&&i<5) { 
k=0; 

outlength=32754; 
1 5 sprintf(tmp_qry,"%s",qry); sprintf(s,"%s",""); 

k=hl7sap(s,tmp_qry,outmsg,&outlength); 
outmsg[outlength] = A0 1 ; 
if(!k) 

} 

20 if(!k&&i=5) { 

fprintf(stderr,"Failed on HL7SAP\n"); 

} 

for (i=0; i<strlen(outmsg);i++) { 
if(outmsg[i]=V) outmsg[i]='\n , ; 

25 } 

strcpy(data,outmsg); 
} 

/**/ 

void getword(char *word, char *Hne, char stop) { 
30 intx = 0,y; 

for(x=0;((line[x]) && (line[x] != stop));x++) 
word[x] - line[x]; 

wordjx] = W; 
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if(line[x]) ++x; 
y=0; 

while(line[y++] = line[x++]); 

} 

5 char *makeword(char *iine, char stop) { 
int x = 0,y; 

char *word = (char *) malloc(sizeof(char) * (strlen(line) + 1)); 

for(x=0;((line[x]) && (line[x] != stop));x++) 
wordfx] = line[x]; 

10 word[x] = W; 

if(line[x]) ++x; 
y=0; 

while(line[y-H-] - line[x++]); 
return word; 

15 } 

char *fmakeword(FILE *f, char stop, int *cl) { 
int wsize; 
char *word; 
int 11; 

20 wsize = 102400; 

11=0; 

word = (char *) malloc(sizeof(char) * (wsize + 1)); 

while(l) { 

word[ll] = (char)fgetc(f); 
25 if(ll=wsize) { 

word[ll+l]=W; 
wsize+= 102400; 

word = (char *)realloc(word,sizeof(char)*(wsize+l)); 

} 

30 ~(*cl); 
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if((word[H] = stop) || (feof(0) II 0(*cl))) { 
if(word[H] != stop) 11++; 
\vord[ll] = '\0 f ; 
return word; 

5 } 

++H; 

} 

} 

char x2c(char *what) { 
1 0 register char digit; 

digit = (what[0] >= 'A* ? ((what[0] & Oxdf) - 7V)+10 : (what[0] - *0')); 
digit *= 16; 

digit += (what[l] >= 'A* ? ((what[l] & Oxdf) - 'A')+10 : (what[l] - 'O 1 )); 
return(digit); 

15 } 

void unescape_url(char *url) { 
register int x,y; 

for(x=0,y=0;url[y];++x,++y) { 
if((url[x] = url[y]) '%*) { 
20 url[x] - x2c(&url[y+l]); 

y+=2; 

} 

} 

url[x] = •«)•; 

25 } 

void piustospace(char *str) { 
register int x; 

for(x=0;str[x];x++) if(str[x] = '+') str[x] = ' '; 

} 

30 int rind(char *s, char c) { 
register int x; 


9960926A1 1 > 


WO 99/60926 


PCT/US99/11828 


84 

for(x=strlen(s) - l;x != -1; x«) 

if(s[x] = c) return x; 
return -1; 

} 

5 int getline(char *s, int n, FILE *f) { 
register int i=0; 

while(l) { 

s[i] = (char)fgetc(f); 

if(s[i] == CR) 
10 s[i] - fgetc(f); 

if((s[i] — 0x4) j| (s[i] — LF) || (i = (n-1))) { 
s[i]-W; 

return (feof(0 ? 1 : 0); 

} 

15 ++i; 
} 

} 

void send_fd(FILE *f, FILE *fd) 
{ 

20 int num_chars=0; 

char c; 

while (1) { 
c = fgetc(0; 
if(feof(f)) 
25 return; 

fputc(c,fd); 

} 

} 
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viewpft 

#include <stdio.h> 
#include <stdlib.h> 
#include <sys/flle.h> 
5 ^include <string.h> 

#include <memory.h> 
#include "gd.h" 
#include "gdfonts.h" 

#define MAXENTRIES 10000 
10 #defmeLF10 
, #defineCR13 

typedef struct { 
char *name; 
char *val; 
15 } entry; 

char *makeword(char *line, char stop); 
char *frnakeword(FILE *f, char stop, int *len); 
char x2c(char *what); 
void unescape_url(char *url); 
20 void plustospace(char *str); 

void test_hl7(char *m, char *AccssN); 
char *gettxt(char *rnsgpnt,char *txtdat,char *ptrn); 
void PtData(char *c); 
void PtMsg(char *hl7msg); 
25 void Score(char *c); 

void convGRdt(char *msg, char *s, char *h!7code); 
void CheckFls(char *filnam, char *AccssN); 

char MRN[10]; 

main(int argc, char *argv[]) { 
30 entry entries[MAXJENTRIES]; 

register int x,m=0; 
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int cl; 
int i,z; 

int MX[ 1 44],MX0[ 1 44],MI0[ 1 44],clr[ 1 0]; 
float parval[3][29] r val; 
5 FILE *out; 

char s[256],s0[64] ? AccssN[32]; 
char msg[ 10000]; 
char *cl,*c=msg; 
gdlmagePtr im; 
10 int black, white,red.blue; 
char str[4]; 

char parnam[29][20]={ 

,, FVC M ) ,, FEV.5 n . ,, FEV.5/FVC&#037 M , ,, FEV.75" ) ,, FEV.75/FVC&#037"/ , FEVl ,, > 
"FEV1/VC^#0377TEV1/FVC&#037VTEV1/P^^ 
1 5 "FEF25-75&#037" ) "FEF25-75/FVC","FEF75-85&#037","FEF.2- 1 .2","FEF25&#037", 

, TEF50&#037VFEF75&#037 , 7TMFTVTETVW^ 

, TIF^ , TIF25&#037^TIF50&#037 , ^ ,, FIF75&#037 I ^ M FIF50/FEF50&#037 ,, }; 


char parHL7[97][55)={ 

"47646 A HOME FVC DETERMINATION" , 

20 "47648 A HOME FEV0.5 DETERMINATION", 

"47650 A HOME FEV0.5/FVC% DETERMINATION", 
"47652 A HOME FEV0.75 DETERMINATION", 
"47654 A HOME FEV0.75/FVC% DETERMINATION", 
"47656 A HOME FEV1 DETERMINATION", 

25 "47658 A HOME FEV 1 /VC% DETERMINATION", 
"47660 A HOME FEV1/FVC% DETERMINATION", 
"47662 A HOME FEV1/PEF DETERMINATION", 
"47664 A HOME FEV3 DETERMINATION", 
"47666 A HOME FEV3/FVC% DETERMINATION", 

3 0 "47668 A HOME PEF DETERMINATION", 

"47682 A HOME FEF25-75% DETERMINATION", 
M 47670 A HOME FEF25-75/FVC% DETERMINATION", 
"47684 A HOME FEF75-85% DETERMINATION", 
M 47686 A HOME FEF0.2-1.2 DETERMINATION", 

3 5 "47672 A HOME FEF25% DETERMINATION", 
"47674 A HOME FEF50% DETERMINATION", 
"47676 A HOME FEF75% DETERMINATION", 
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"47678 A HOME FMFT DETERMINATION", 
"47680 A HOME FET DETERMINATION", 
"47688 A HOME MVV IND DETERMINATION", 
"47690 A HOME FIVC DETERMINATION", 
5 "47692 A HOME FIVC/FVC% DETERMINATION", 
"47694 A HOME PIF DETERMINATION", 
"47696 A HOME FIF25% DETERMINATION", 
"47698 A HOME FIF50% DETERMINATION", 
"47700 A HOME FIF75% DETERMINATION", 
1 0 "47702 A HOME FIF50/FEF50% DETERMINATION", 
"47704 A HOME FEV CURVE DETERMINATION", 
"47706 A HOME FIV CURVE DETERMINATION", 

"47708 A HOME SYNDROMAL INTERPRETATION DETERMINATION", 

"47710 A HOME FVC PREDICTED VALUE", 
1 5 "477 1 2 A HOME FEV0.5 PREDICTED VALUE", 

"477 1 4 A HOME FEV0.5/F VC% PREDICTED VALUE", 

"47716 A HOME FEV0.75 PREDICTED VALUE", 

"47718 A HOME FEV0.75/FVC% PREDICTED VALUE", 

"47720 A HOME FEV1 PREDICTED VALUE", 
20 "47722 A HOME FEVWC% PREDICTED VALUE", 

"47724 A HOME FEV1/FVC% PREDICTED VALUE", 

"47726 A HOME FEV1/PEF PREDICTED VALUE", 

"47728 A HOME FEV3 PREDICTED VALUE", 

"47730 A HOME FEV3/FVC% PREDICTED VALUE", 
25 "47732 A HOME PEF PREDICTED VALUE", 

"47734 A HOME FEF25-75% PREDICTED VALUE", 

"47736 A HOME FEF25-75/FVC% PREDICTED VALUE", 

"47738 A HOME FEF75-85% PREDICTED VALUE", 

"47740 A HOME FEFO.2-1.2 PREDICTED VALUE", 
30 "47742 A HOME FEF25% PREDICTED VALUE", 

"47744 A HOME FEF50% PREDICTED VALUE", 

"47746 A HOME FEF75% PREDICTED VALUE", 

"47748 A HOME FMFT PREDICTED VALUE", 

"47750 A HOME FET PREDICTED VALUE", 
3 5 "47752 A HOME MVV IND PREDICTED VALUE", 

"47754 A HOME FIVC PREDICTED VALUE", 

"47756 A HOME FIVC/FVC% PREDICTED VALUE", 

"47758 A HOME PIF PREDICTED VALUE", 
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"47760 A HOME FIF25% PREDICTED VALUE", 
"47762 A HOME FIF50% PREDICTED VALUE", 
"47764 A HOME FIF75% PREDICTED VALUE", 
"47766 A HOME FIF50/FEF50% PREDICTED VALUE", 
5 "47768 A HOME PERCENTAGE FVC OF PREDICTED VALUE", 

"47770 A HOME PERCENTAGE FEV0.5 OF PREDICTED VALUE", 
"47772 A HOME PERCENTAGE FEV0.5/FVC% OF PREDICTED VALUE", 
"47774 A HOME PERCENTAGE FEV0.75 OF PREDICTED VALUE", 
"47776 A HOME PERCENTAGE FEV0.75/FVC% OF PREDICTED VALUE", 

1 0 "47778 A HOME PERCENTAGE FEV1 OF PREDICTED VALUE", 

"47780 A HOME PERCENTAGE FEV1/VC% OF PREDICTED VALUE", 
"47782 A HOME PERCENTAGE FEV1/FVC% OF PREDICTED VALUE", 
"47784 A HOME PERCENTAGE FEVI/PEF OF PREDICTED VALUE", 
"47786 A HOME PERCENTAGE FEV3 OF PREDICTED VALUE", 

1 5 "47788 A HOME PERCENTAGE FEV3/FVC% OF PREDICTED VALUE", 
"47790 A HOME PERCENTAGE PEF OF PREDICTED VALUE", 
"47792 A HOME PERCENTAGE FEF25-75% OF PREDICTED VALUE", 
"47794 A PERCENTAGE HOME FEF25-75/FVC% OF PREDICTED VALUE", 
"47796 A PERCENTAGE HOME FEF75-85% OF PREDICTED VALUE", 

20 "47798 A HOME PERCENTAGE FEF0.2- 1 .2 OF PREDICTED VALUE", 
"47800 A HOME PERCENTAGE FEF25% OF PREDICTED VALUE", 
"47802 A HOME PERCENTAGE FEF50% OF PREDICTED VALUE", 
"47804 A HOME PERCENTAGE FEF75% OF PREDICTED VALUE", 
"47806 A HOME PERCENTAGE FMFT OF PREDICTED VALUE", 

25 "47808 A HOME PERCENTAGE FET OF PREDICTED VALUE", 

"478 1 0 A HOME PERCENTAGE MVV IND OF PREDICTED VALUE", 
"47812 A HOME PERCENTAGE FIVC OF PREDICTED VALUE", 
"47814 A HOME PERCENTAGE FIVC/FVC% OF PREDICTED VALUE", 
"47816 A HOME PERCENTAGE PIF OF PREDICTED VALUE", 

30 "47818 A HOME PERCENTAGE FIF25% OF PREDICTED VALUE", 
"47820 A HOME PERCENTAGE FIF50% OF PREDICTED VALUE", 
"47822 A HOME PERCENTAGE FIF75% OF PREDICTED VALUE", 
"47824 A HOME PERCENTAGE FIF50/FEF50% OF PREDICTED VALUE", 
"47826 A HOME TEST VARIABILITY", 

3 5 "47828 A HOME METHOD OF PREDICTED VALUE CALCULATION", 
"47830 A HOME NUMBER OF TEST ATTEMPTS", 
"47832 A HOME TESTING DEVICE", 

"49893 A TECHNICAL NOTES OF HOME SPIROMETRY", 
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"49889 A HOME MORNING SCORE", 
M 49891 A HOME EVENING SCORE"}; 

printf("Content-type: text/htm l%c%c M ,l 0,10); 

if(strcmp(getenvC , REQUEST_METHOD"),"POST ,, )) { 
5 printf( M This script should be referenced with a METHOD of POST An"); 

printf( M If you don't understand this, see this "); 
printf("<A 

HREF^\"hu^://www.ncsa.uiuc.edu/SDG/SoftAv^^ 
overview</A>.%c", 1 0); 
10 exit(l); 
} 

if(strcmp(getenv("CONTENT_TYPE , 0, M appIication/x-www-form-ur!encoded")) { 
printf("This script can only be used to decode form results. \n"); 
exit(l); 

15 } 

cl = atoi(getenv( ,r CONTENT_LENGTH M )); 
for(x=0;cl && (!feof(stdin));x++) { 
m=x; 

entries[x].val = fmakeword(stduV&\&cl); 
20 plustospace(entries[x].val); 

unescape_url(entries[x].val); 

entries[x].name = makeword(entries[x].val, '-); 

} 

printf("<Hl>Pulmonary Function Testing</Hl>"); /* 
25 printfC'You submitted the following name/value pairs:<p>%c",l 0); 

printf( w <ul>%c",10); 

printf{"<BR>m=%d<BR> ,, ,m); 
printf( ,, cl=%d<BR> M ,cl); 
for(x=0; x <= m; x++){ 
30 printf( M <li> <code>%s = %s</code>%c",entries[x].name, 

entries[x].val,10); 

} 

printf("</ul>%c",10); 

printff \n<B>This is the end</B> H ); 
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*/ 

if (m=0) { 

printf("<B>Please choose the test</B>\n"); exit(0); 

} 

5 strcpy(MRN,entries[0].val); 

im = gdImageCreate(195, 500); /* 1 80*/ 

black = gdlmageCoiorAHocate(im, 0, 0, 0); 

white = gdImageColorAllocate(im, 255, 255, 255); 

red = gdImageColorAllocate(im, 255, 0, 0); 
1 0 /*blue*/clr[0] = gdImageColorAllocate(im, 0, 0, 255); 

/*blue*/clr[l] = gd Image ColorAllocate(im, 0, 255, 0); 

/*blue*/clr[2] = gdlraageColorA!locate(im, 0, 255, 255); 

/*blue*/clr[3] = gdlmageCo!orAllocate(im, 255, 0, 255); 

/*biue*/clr[4] = gdImageColorA!locate(im, 255, 255, 0); 
15 /*b1ue*/clr[5] = gdlmageColorAUocate(im, 100,255,255); 

/*blue*/clr[6] = gdImageColorAHocate(im, 255, 100, 255); 

/*blue*/clr[7] = gdlmageCoIorAHocate(im, 255, 255, 100); 

gdImageLine(im,25,250, 1 70,25 0,red)^*X*/ gdImageLine(im,25,460,25,40,red);/*Y*/ 
gdImageString(im 5 gdFontSmall, 25, 25,"F[l/s]",red); 
20 gdImageString(im,gdFontSmali,l 60,235," V[l] n , red); 
for (i=l ;i<15;i++) {sprintf(str,"%3d M ,i); 

gdlmageLine(im,23,250-i* 1 5,27,250-i* 1 5,red); 
gdImageString(im,gdFontSmall,3,250-i* 1 5-6,str,red); 
gd!mageLine(im,23,250+i* 15,27,250+i* 15,red); 
25 gdlmageString(im,gdFontSmall,3,250+i* 1 5-6,str,red);} 

for (i=l ;i<7;i++) {sprintf(str,"%d",i); 

gdlmageLine(im,25+24*i,250-2,25+24*i,250+2,red); 
gdImageString(im,gdFontSmall^5+24*i-3,250+5,str^ed);} 

.30 /* process the msg */ 

strcpy(AccssN,entries[m].vai); 
test_hl7(msg,AccssN); 

convGRdt(msg,s,"47704 AA L!0! "); 
for (i=0;i<144;i-^) MX[i]=0; 
35 for (i=0;i<144;i-r-) {if ((i>l)&&(s[i]='#*)) break; MX[i]=s[i]-35; } 
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for (i=0;i< 1 44;i++) gdImageLme(im,i+26,250-MX[i],i+ 1 +26,250-MX[i+ 1 ],red); 
for (i=0;i<144;i++) MX0[i]=MX[i]; 

convGRdtCmsg^/^TTOe^LiO!"); 
for (i=0;i<144;i++) MX[i]=s[i]-35; 
5 for (x=143;x>0;x-) if (MX[x]>0) break; if (x==143) x«; 

for (i=0;i<x+l;i++) gdImageLine(im ) i+26,250+MX[i] > i+l+26,250+MX[i+I],red); 
for(i=0;i<144;i++) MI0[i]=MX[i]; 

CheckFls(s,AccssN); 

out = fopen(s,"wb M ); gdImageGif(im, out); fclose(out); 
10 printf( 

"<IMG SRC=V , http://wwwxprnc.colurnbia.edu/tmp/%s\" ALIGN=left>\n'\s+28); 
PtData(msg); 

printf("<TABLE BORDER>\n"); 
printf("<TR><TH>Index</TH><^ 
1 5 c=msg; c=gettxt(c,s J "OBX!5!"); 
for (i=0;i<29;B-+) { 

printf( M <TR><TH ALIGN=!eft>\n"); memcpy(sO,parHL7[i],5); s0[5]='\0'; 

printf("<FORM METHOD-\"POST\ M ACTION=\ M trendpftxgi\">\n"); 

printf("<INPUT TYPE=\"hidden\ M NAME=\"MRN\" VALUE=\"%s\">",MRN); 
20 printf( M <rNPUT TYPE=\"hidden\" NAME-V'medcodeV VALUE=\ ,, %s\"> n ,sO); 

printf("<INPUT TYPE=\ M submit\" VALUE=V , %02d\ M >" 9 i+l); 

printf( ,, %s</m></FORM>\n M ,parnarn[i]); 

for (cl=0;cl<3;cl++) { 

c=gettxt(c,s, ,,/XA L!0! "); parval[cl][i]=atoff(s); 
25 if (parvai[cl][i]<=0) strcpy(s,"— "); 

printf( M <TD ALIGN=right>%s</TD>",s); } 

} 

printf("</TABLE>\n"); 
Score(msg); PtMsg(msg); 
30 for(z=m-l;z>-l;z~) { 

printf("<CENTERxP><IMG SRC=\ u blumar.gif\ H ></P></CENTER>"); 
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strcpy(AccssN,entries[z].val); test_h!7(msg,AccssN); 

convGRdt(rnsg,s/ , 47704 /SA L!0! M ); 
5 for (i=0;i<144;i++) MX[i]-0; 

for (i=0;i<144;i++) { if ((i> 1 )&&(s[i]== , # t )) break; MX[i]=s[i]-35; } 
for(i=0;i<144;i++) { 

if ((i>l)&&(MX[i]=0)) break; cl-m-l-z; if (cl>7) cl-7; 

gdImageLine(iniJ+26,250-MX[i] > i+l+26,250-MX[i+l] ) c1r[cl]); } 

10 convGRdt(msg,s/'47706 AA L!0! ,t ); 

for (i=0;i<144;i++) MX[i]=s[i]-35; 
for (x=143;x>0;x») if (MX[x]>0) break; if (x==143) x~; 
if (x>10) for (i=0;i<x+l;i++) 
gdImageLine(im,i+26,250+MX[i],i+ 1 +26,250+MX[i+ 1 ],clr[cl]); 

1 5 CheckFls(s,AccssN); 

out = fopen(s/'wb"); gdImageGif(im, out); fclose(out); 
printf( 

"<IMG SRC-V , http://^vwwxpmcxoIumbia.edu/trnp/ 0 /os\ ,, ALIGN=left>\n",s+28); 

PtData(msg); 

20 printf("<TABLE BORDER>\n"); 

printf("<TR><TH>Index<^H><TH>Pred</TH><TH>Meas<TH><TH> 
printf( ,, <TH>Meas</TH><^ 
c=msg; c=gettxt(c,s,"OBX!5! M ); 
for (i=0;i<29;i++) { 

25 printf("<TR><TH ALIGN=left>\n"); memcpy(sO,parHL7[i],5); sO[5]^O t ; 
printf("<FORM METHOD=\"POSTT ACTION=\"trendpft.cgi\ M >\n"); 
printf("<INPUT TYPE=\"hidden\" NAME-Y f MRN\" VALUE=\"%sV^^MR]SI); 
printf("<INPUT TYPE=\"hidden\" NAME=\ ,, medcode\ M VALUE=\"%s\ ,, >",sO); 
printfC^INPUT TYPE^'submitY' VALUE=\ M %02d\">",i+]); 
30 printf( tt %s</rH><7FORM>\n^pa^lam[i]); 
for (clK>;cK3;cl++) { 
if (parval[cl][i]<=0) strcpy(s, M — "); 
else if (cl=2) sprintfCs/^.Of ',parvai[cl][i]); 
else sprintf^s/^^r^arvaltcllti]); 
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printf("<TD ALIGN=right>%s</TD> ,, ,s); } 
c=gettxt(c,s ) " AA L!0!"); 

c=gettxt(c,s, ,,AA L!0! M ); val=atoff(s); if (val<=0) strcpy(s,"— "); 
printf("<TD ALIGN=right>%s</TD>'\s); 
5 c=gettxt(c,s, nAA L!0!"); if (s[0]='0') strcpy(s, H — "); 
printf( M <TD ALIGN-right>%s<rTD> ,, ,s); 
if((parval[l][i]<=0)||(val<-0))strcpy(s,"— "); 

else sprintf(s,"%6.0r,(val/parval[l][i])* 100); 
printf("<TD ALIGN=Tight>%s</TD></TR>\n",s); 

10 } 

printf("</TABLE>\n M ); 

Score(msg); PtMsg(msg); 


gdlmageDestroy(im); 

1 5 /*clean some memory*/ 

for(x=0;x <= m; x++){ 
free(entries[x].name); 
free(entries[x].val); 

} 

20 } 

void getword(char *word, char *line, char stop) { 
int x = 0,y; 

for(x=0;((line[x]) && (linefx] != stop));x++) 
word[x] = line[x]; 

25 wordfx] = W; 

if(line[x]) ++x; 
y-0; 

while(line[y-H-] - line[x++]); 

} 
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char *makeword(char *line, char stop) { 
int x = 0,y; 

char *word = (char *) malloc(sizeof(char) * (strlen(line) + 1)); 

for(x=0;((line[x]) && (line[x] != stop));x++) 
5 word[x] = line[x]; 

word[x] = *\0*; 
if(line[x]) ++x: 

y=o ; 

while(line[y++] = line[x++]); 
1 0 return word; 

} 

char *frnakeword(FILE *f, char stop, int *cl) { 
int wsize; 
char *word; 
15 int 11; 

wsize = 102400; 
11=0; 

word = (char *) malloc(sizeof(char) * (wsize + 1)); 

while(l) { 
20 word[U] = (char)fgetc(f); 

ifl(ll=wsize) { 
word[ll+l] = 
wsize+= 102400; 

word = (char *)realloc(word,sizeof(char)*(wsize+l)); 

25 } 

-(*cl); 

if((word[ll] = stop) || (feof(0) II (!(*cl))) { 
if(word[Il] != stop) 11++; 
word[U] = W; 
30 return word: 

} 

++11; 
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} 

} 

char x2c(char *what) { 
register char digit; 

5 digit - (what[0] >= f A' ? ((what[0] & Oxdf) - 'A*)*] 0 : (what[0] - 'O')); 

digit *= 16; 

digit += (what[l] >= 'A' ? ((what[l] & Oxdf) - 'AO+IO : (what[l] - '0')); 
return(digit); 

} 

10 void unescape_url(char *url) { 
register int x,y; 

for(x=0,y=0;url[y];++x,++y) { 
if((url[x] = url[y]) == '%') { 
url[x] = x2c(&url[y+l]); 
15 y+=2; 
} 

} 

url[x] = 'VO"; 

} 

20 void plustospace(char *str) { 
register int x; 

for(x=0;str[x];x-^+) if(str[x] = •+■) str[x] = ' 

} 

int rind(char *s, char c) { 
25 register int x; 

for(x=strien(s) - 1 ;x != -1; x«) 

if(s[x] = c) return x; 
return -1; 

} 

30 int getline(char *s, int n, FILE *f) { 
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register int i=0; 

while(l) { 

s[i] = (char)fgetc(O; 

if(s[i] = CR) 
5 s[i] = fgetc(0; 

if((s[i] = 0x4) || (s[i] = LF) || (i = (n-1))) { 
s[i]=W; 

return (feof(f) ? 1 : 0); 

} 

10 ++i; 
} 

} 

void send_fd(FILE *f, FILE *fd) 
{ 

1 5 int num_chars=0; 

char c; 

while (1) { 
c = fgetc(f); 
if(feof(f)) 
20 return; 

fputc(c,fd); 

} 

} 

/*= ==- = = 

25 void CheckFis(char *flnm, char *Acs) 
{ 

int i; 
FILE *f; 
char fh[256]; 

3 0 sprintf(rh, n /localmisc/httpd/htdocs/tmp/%s.gif ' , Acs); i=0; 
while ((f^fopen(fh,V , ))!=NULL) { 
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fclose(f); sprintf(fo/71ocalmisc/h^ 
memccpy(flrun,fh,'\0\256); 
} 

void convGRdt(char *c, char *s, char *h!7code) 
5 { 

char *cl; 

c=gettxt(c,s,hl7code); 

whiie ((cl=strstr(s, M \\S\V , ))!=NULL) 

{*cl-H= w ; *c1-m-='\0'; cl++; strcat(s,cl);} 
1 0 while ((c 1 =strstr(s ) ,, \\R\\ ,, ))!=NULL) 

{*cl++= , ~'; *d++-\0'; cl++; strcat(s,cl);} 
while ((cl=strstr(s; , \\E\\ ,, ))!=NULL) 

{*cl++='&'; *cl++='\0*; cl++; strcat(s,cl);} 

} 

1 5 void PtData(char *c) 
{ 

char S[256] > s0t256],sl[16],s2[16],s3[16],s4[32],*pnt; 
pnt=c; 

printf( 

20 H <B><U>MRN:</U></B> %s<BR>\n",MRN); 

c=gettxt(pnt,s,"47704 AA L!0! n ); sscanf(s > "%s%s%s%s%s ,, ,s0,sl,s2,s3,s4); 
printf( ,, <B><U>Age:</U></B> %s <B><U>Height:</U></B> %s ins n ,sl,s2); 
printf("<B><U>Sex:</U></B> %s<BR><B><U>Ethnic Origin :</U></B> %s<BR>\n",s3,s4); 
c=pnt; 

25 c=gettxt(c,s,"47639 AA L! ! ! "); strncpy(s0,s+4,2); s0[2]= W; 
printf( M <B><U>Test Date:</U></B> %s/",s0); 
strncpyCsO^+e^); s0[2]= , \0 t ; printf( M %s/",sO); 
strncpyCsO^^); s0t4]= , \0'; printf( M %s M ,s0); 

strncpy(s0,s+8,2); sOpj-'XO'; printf( M <BR><B><U>Time:<AJ></B> %s:'\s0); 
30 strncpy(sO,s+l 0,2); s0[2]^0 1 ; printfH/osr'^O); 

strncpyCsO^+n^); sO[2]=W; printf( ,, %s<BR>\n",sO); 

printf{ M <B><U>Test Quality Information :</U></B><BR>"); 
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c=gettxt(c,s; , 47826 AA L!0!"); printf("<B><I>VariabiIity - </l></B> %s<BR>\n'\s); 
c=gettxt(c,s, ,, 47830 /VA L!0!");printf( M <B><I>Number of tests :</I></B> %s<BR>\n",s); 
c-gettxt(c,s,"47828 AA L!0! "); printf("%s<BR>\n M ,s); 
c=gettxt(c,s, ,, 47708 AA L!0! n ); 
5 printf( ,, <B><U>Interpretation of test results:</U></B><BR>\n%s<BR><P><HR>\n M ,s); 
} 

char *gettxt(char *msgpnt,char *txtdat,char *ptrn) 
{ 

int i; 

1 0 msgpnt=strstr(msgpnt,ptrn); msgpnt+=strlen(ptrn); 

i=0; while (*msgpnt !=T) txtdat[i++]=*msgpnt++; txtdat[i]='\0'; 

return(msgpnt); 

} 


void test_hl7(char *data,char *AcsN) 
15 { 

int yrjntjdy^mn^c; 

int a,i,k; 

char 

qryLnl_l[]-"MSH! A ~\\&!tst!cucis!cis.qservice!cicsl9.phis! 1 9950 1251 20000! !QRY! 19950125120000! 
20 D!2.1!VV , ! M ; 

char qryLn2_l[]- M \rQRD! 19950125 120000!R!I!fmkelj!!!0!"; /*3131313*/ 

char qryLn2_2[]= n !RES!*!*!B"; 

char 

qryLn3_l[]- , VrQRF!*! 19921 104000000119981231 1 1 0700 ! SERVICE-*-* -*! 95-5 7-5 5~*-0 15 8"; 
25 char qryLn3__2[]= n ~A-UR~ — 58"; 
char outmsg[32755],s[5 12]; 

unsigned short outlength; 
char qr>'[1024]= ,,, ^tInp_qry[10024]- ,, ' , ; 
FILE *f; 

30 char svc[]="cis.qservice@cicst2.phis%ciscomtab"; 


sprintf(qry/Vos%s%s%s%s%s%s n , 

qryLn 1 _ 1 ,qry Ln2_ 1 ,MRN,qryLn2_2,qryLn3_ 1 >AcsN 5 qryLn3_2) ; 
i=k=0; 

while(!k&&i<5) { 
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k=0; 

outlength=32754; 

spruitf(tmp_qry/'%s",qry); spnntf(s, M %s ,, ) ,M '); 
k=hl7sap(s,tmp_qry,outmsg,&outlength); 
5 outmsg[outlength]-\0'; 
if(!k) i++; 

} 

if(!k&&i— 5) { 
fprintf(stderr/Tailed on HL7SAP\n"); 

10 } 

for (i=0; i<strlen(outmsg);i++) { 
if(outmsg[i]==V) outmsg[i]= , \n , ; 

} 

strcpy(data,outmsg); 
15 } 


void Score(char *msgpnt) 
{ 

char *pnt, s[256], s0[8]; 
intsc[10],i; 

20 char sc4[4][10]={ ,, none H / , mild M , ,r moderate","severe"} ; 
char am4[4][30]={"as usual'V'slightly increased", 

"significantly increased", n maximar} ; 
char morSc[3][36]={ 
"Disturbance of the sleep by asthma", 
25 "Number of awakening by asthma", 

"Nightime reliever use"}; 
chareveSc[10][36]={ 
"Wheeze", 
"Cough", 
30 "Sputum production", 
"Chest tightness", 
"Shortness of breath", 
"Limitation of physical activity", 
"Over-all use of asthma medications", 
3 5 "Exposure to asthma triggers", 

"Over-all estimate of asthma", 
"Daytime reliever use"}; 
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pnt=msgpnt; 

if (strstr(pnt, ,, 49889 AA L")!=NULL) { 
pnt=gettxt(msgpnt,s,"49889 AA L!0! H ); if (*s='G') { 
sscanf(s;^os o /od%d 0 /od",s0,&sc[0] 5 &sc[l],&sc[2]);sc[0]=sc[0]-48; 
5 puts("<CENTER><TABLE BORDER>"); 

puts( M <CAPTION><FONT COLOR=\ H #0000FF\">Asthma Diary </FONT></CAPTION>"); 

puts( H <TR><TH>Symptom<rTH><TH>Score</TH><TH>Meaning</TH></TR> , 0; * 
for(i=0;i<3;i++) { 

switch (i) { 

10 case 0: strcpy(s,sc4[sc[i]]); break; 

case 1 : strcpy(s,"night awakening"); break; 
case 2: strcpy(s," inhaler puffs"); break; 

} 

printf( 

1 5 "<TR><TH ALIGN=left>%s</TH><TD ALlGN=center>%d</TD><TD>%s</TD>\n M ? 

morSc[i],sc[i],s); 

} 

puts("</TABLE></CENTER>"); 

} 

20 } 

else if (strstr(pnt, ,, 49891 AA L ,, )!=NULL) { 
pnt=gettxt(msgpnt,s,"49891 AA L!0! n ); if (*s= , G') { 
sscanf(s/ , %s%d%d%d%d%d%d°/od%d%d%d tl ,sO, 
&sc[0],&sc[l],&sc[2],&sc[3],^^^ 
25 for (i=0;i<9;i++) sc[i]=sc[i]-48; 

puts("<CENTER><TABLE BORDER>"); 

puts( n <CAPTION><FONT COLOR-\"#0000FR">Asthma Diary</FONT></CAPTION>"); 
puts("<OTl><TH>Symptom<mi><TH>Score</ra><TH>M 
for(i=0;i<10;i++) { 
30 if (i=6) strcpy(s,am4[sc[i]]); 

else if (i=9) strcpy(s," inhaler puffs"); else strcpy(s,sc4[sc[i]]); 
printf( 

"<TR><TH ALIGN=left>%s</TH><TD ALIGN=center>%d</TD><TD>%s</TD>\n", 
eveSc[i],sc[i],s); 

35 } 

puts("</TABLE></CENTER>"); 

} 

} 
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void PtMsg(char *hl7msg) 
{ 

char *pnt,*cl,*c2,s[512]; 
5 pnt=hI7msg; if (strstr(pnt,"49893 / ^ A L")=NULL) return; 
pnt-gettxt(hl7msg,s,"49893^ A L!0! M ); 

if (((c 1 =strstr(s, " { * "))=NULL)||(strstr(s," { * * } ")! =NULL)) return; 
c2=st^st^(s, ,, *} ,, ); pnt=s; cl+=2; while (cl<c2) *pnt++=*cl++; *pnt= l \0'; 
puts("<CENTER><FONT COLOR=\"#0000FR">Message from the patient</FONT><BR>"); 
1 0 puts(s); puts("</CENTER> M ); 
} 
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trendpft 

^include <stdio.h> 
^include <stdlib.h> 
#include <sys/fiie.h> 
5 #include <string.h> 

#include <memory.h> 
#include <time.h> 

#define MAX_ENTRIES 10000 
#defineLF10 
10 #defineCR 13 

typedef struct { 

char *name; 

char *val; 
} entry; 

1 5 char *makeword(char *line, char stop); 

char *fmakeword(FILE *f, char stop, int *len); 

char x2c(char *what); 

void unescape_url(char *url); 

void plustospace(char *str); 

20 void test_h!7(char *m); 

char *gettxt(char *msgpnt,char *txtdat,char *ptrn); 
char *parDim(int pnum); 

char MRN[10],MED[8]; 

main(int argc, char *argv[l) { 
25 entry entries[MAX_ENTRIES]; 

register int x,m=0; 
int cl; 
int i,z,N; 

int MX[144],MX0[144],MI0[144],clr[10]; 
30 float parval[3][29] ? val; 
FILE *out; 
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char s[256],sO[64],AccssN[32]; 

char msg[32755]; 

char *c2,*cl,*c=msg; 

int black,white,red,blue; 
5 char str[4]; 

struct tm Tstr; 

time_t ts[3O0O]; 

char par[3000][10]; 

char parnam[29][20]={ 
10 ,, FVC , ^ ,, FEV.5*^"FEV.5/FVC&#037","FEV.75^ ,, FEV.75/FVC&#037^"FEV1^ 

t TEVlA^C&#037 , ^ , TEVl/FVC&#037 , ^ t TEVl/PEF , ^ ,, FEV3 , ^ , TEV3/FVC&#037 , ^ ^ PEF , ^ 
t TEF25-75&#037^ ,, FEF25-75/FVC , ^ , TEF75-85&#037^ , TEF.2-1.2 , ^ ,, FEF25&#037 , ^ 
"FEF50&#037 M /TEF75&#037^ M FMr^ , ^ u FET","MVV^ 
, TIF , ^ , TIF25&#037^ ,, FIF50&#O37 ,, s ,, FIF75&#O37 , ^ M FlF50/FEF50&#O37 ,, }; 


1 5 char parHL7[97][55]={ 

"47646 A HOME FVC DETERMINATION", 
"47648 A HOME FEV0.5 DETERMINATION", 
"47650 A HOME FEV0.5/FVC% DETERMINATION" , 
"47652 A HOME FEV0.75 DETERMINATION", 

20 "47654 A HOME FEV0.75/FVC% DETERMINATION", 
"47656 A HOMEFEVl DETERMINATION", 
"47658 A HOME FEVI /VC% DETERMINATION", 
"47660 A HOME FEV1/FVC% DETERMINATION", 
"47662 A HOME FEV1/PEF DETERMINATION", 

25 "47664 A HOME FEV3 DETERMINATION", 

"47666 A HOME FEV3/FVC% DETERMINATION", 
"47668 A HOME PEF DETERMINATION", 
"47682 A HOME FEF25-75% DETERMINATION", 
"47670 A HOME FEF25-75/FVC% DETERMINATION", 

30 "47684 A HOME FEF75-85% DETERMINATION", 
"47686 A HOME FEFO.2-1.2 DETERMINATION", 
"47672 A HOME FEF25% DETERMINATION", 
"47674 A HOME FEF50% DETERMINATION", 
"47676 A HOME FEF75% DETERMINATION", 

3 5 "47678 A HOME FMFT DETERMINATION", 
"47680 A HOME FET DETERMINATION", 
"47688 A HOME MVV IND DETERMINATION", 
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"47690 A HOME FIVC DETERMINATION", 

"47692 A HOME FIVC/FVC% DETERMINATION", 

"47694 A HOME PIF DETERMINATION", 

"47696 A HOME FIF25% DETERMINATION", 
5 "47698 A HOME FIF50% DETERMINATION", 

"47700 A HOME FIF75% DETERMINATION", 

"47702 A HOME FIF50/FEF50% DETERMINATION", 

"47704 A HOME FEV CURVE DETERMINATION", 

"47706 A HOME FIV CURVE DETERMINATION", 
1 0 "47708 A HOME SYNDROMAL INTERPRETATION DETERMINATION", 

"47710 A HOME FVC PREDICTED VALUE", 

"47712 A HOME FEV0.5 PREDICTED VALUE", 

"47714 A HOME FEV0.5/FVC% PREDICTED VALUE", 

"47716 A HOME FEV0.75 PREDICTED VALUE", 
1 5 "477 1 8 A HOME FEV0.75/FVC% PREDICTED VALUE", 

"47720 A HOME FEV I PREDICTED VALUE", 

"47722 A HOME FEV1 /VC% PREDICTED VALUE", 

"47724 A HOME FEV1/FVC% PREDICTED VALUE", 

"47726 A HOME FEV1/PEF PREDICTED VALUE", 
20 "47728 A HOME FEV3 PREDICTED VALUE", 

"47730 A HOME FEV3/FVC% PREDICTED VALUE", 

"47732 A HOME PEF PREDICTED VALUE", 

"47734 A HOME FEF25-75% PREDICTED VALUE", 

"47736 A HOME FEF25-75/FVC°/o PREDICTED VALUE", 
25 "47738 A HOME FEF75-85% PREDICTED VALUE", 

"47740 A HOME FEFO.2-1.2 PREDICTED VALUE", 

"47742 A HOME FEF25% PREDICTED VALUE", 

M 47744 A HOME FEF50% PREDICTED VALUE", 

"47746 A HOME FEF75% PREDICTED VALUE", 
30 "47748 A HOME FMFT PREDICTED VALUE", 

"47750 A HOME FET PREDICTED VALUE", 

"47752 A HOME MVV IND PREDICTED VALUE", 

"47754 A HOME FIVC PREDICTED VALUE", 

"47756 A HOME FIVC/FVC% PREDICTED VALUE", 
3 5 "47758 A HOME PIF PREDICTED VALUE", 

"47760 A HOME FIF25% PREDICTED VALUE", 

"47762 A HOME FIF50% PREDICTED VALUE", 

"47764 A HOME FIF75% PREDICTED VALUE", 
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"47766 A HOME FIF50/FEF50% PREDICTED VALUE", 

"47768 A HOME PERCENTAGE FVC OF PREDICTED VALUE", 

"47770 A HOME PERCENTAGE FEV0.5 OF PREDICTED VALUE", 

"47772 A HOME PERCENTAGE FEV0.5/FVC% OF PREDICTED VALUE", 
5 "47774 A HOME PERCENTAGE FEV0.75 OF PREDICTED VALUE", 

"47776 A HOME PERCENTAGE FEV0.75/FVC% OF PREDICTED VALUE", 

"47778 A HOME PERCENTAGE FEV 1 OF PREDICTED VALUE", 

"47780 A HOME PERCENTAGE FEV1/VC% OF PREDICTED VALUE", 

"47782 A HOME PERCENTAGE FEV1/FVC% OF PREDICTED VALUE", 
10 "47784 A HOME PERCENTAGE FEV1/PEF OF PREDICTED VALUE", 

"47786 A HOME PERCENTAGE FEV3 OF PREDICTED VALUE", 

"47788 A HOME PERCENTAGE FEV3/FVC% OF PREDICTED VALUE", 

"47790 A HOME PERCENTAGE PEF OF PREDICTED VALUE", 

-47792 a H OME PERCENTAGE FEF25-75% OF PREDICTED VALUE", 
1 5 "47794 A PERCENTAGE HOME FEF25-75/FVC% OF PREDICTED VALUE", 

"47796 A PERCENTAGE HOME FEF75-85% OF PREDICTED VALUE", 

"47798 A HOME PERCENTAGE FEFO.2-1.2 OF PREDICTED VALUE", 

"47800 A HOME PERCENTAGE FEF25% OF PREDICTED VALUE", 

"47802 A HOME PERCENTAGE FEF50% OF PREDICTED VALUE", 
20 "47804 A HOME PERCENTAGE FEF75% OF PREDICTED VALUE", 

"47806 A HOME PERCENTAGE FMFT OF PREDICTED VALUE", 

"47808 A HOME PERCENTAGE FET OF PREDICTED VALUE", 

"47810 A HOME PERCENTAGE MVV IND OF PREDICTED VALUE", 

"47812 A HOME PERCENTAGE FIVC OF PREDICTED VALUE", 
25 "478 1 4 A HOME PERCENTAGE FI VC/FVC% OF PREDICTED VALUE", 

"47816 A HOME PERCENTAGE PIF OF PREDICTED VALUE", 

"47818 A HOME PERCENTAGE FIF25% OF PREDICTED VALUE", 

"47820 A HOME PERCENTAGE FIF50% OF PREDICTED VALUE", 

"47822 A HOME PERCENTAGE FIF75% OF PREDICTED VALUE", 
30 "47824 A HOME PERCENTAGE FIF50/FEF50% OF PREDICTED VALUE", 

"47826 A HOME TEST VARIABILITY", 

"47828 A HOME METHOD OF PREDICTED VALUE CALCULATION", 
"47830 A HOME NUMBER OF TEST ATTEMPTS", 
"47832 A HOME TESTING DEVICE", 
35 "49893 A TECHNICAL NOTES OF HOME SPIROMETRY", 
"49889 A HOME MORNING SCORE", 
"49891 A HOME EVENING SCORE"}; 
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printf(*'Content-rype: text/htm l%c%c'\ 1 0, 1 0); 

if(strcmp(getenv( ,, REQUEST_METHOD' , ), M POST")) { 

printfO'This script should be referenced with a METHOD of POST An"); 
printf("If you don't understand this, see this "); 
5 printf( n <A 

HREF=\"http://www.ncsa.uiuc.edu/SDG/Sofrware/Mosaic/Docs/filI-out- 
overyiew</A>.%c M , 10); 
exit(l); 

} 

1 0 if(strcmp(getenv(XONTENT_^ { 

printf(*This script can only be used to decode form results. \n"); 
exit(l); 

} 

cl = atoi(getenv("CONTENT_LENGTH")); 
1 5 for(x=0;cl && (!feof(stdin));x++) { 

m=x; 

entries[x].val = fmakeword(stduV&\&cl); 
plustospace(entries[x].val); 
unescape_url(entries[x].val); 
20 entries[x].name = raakeword(entries[x].vaI, , = , ); 

} 

printf( M <H 1 >Pulmonary Function Testing</H 1 >"); /* 

printf("You submitted the following name/value pairs :<p>%c M , 10); 

printf("<ul>%c*\10); 

25 printf( M <BR>m=%d<BR> M ,m); 
printf("cl=%d<BR> w ,cl); 
for(x=0; x <= m; x++){ 

printf( ,, <li> <code>%s = %s</code>%c",entries[x].name, 
entries[x].val,10); 

30 } 

printf("</ul>%c",10); 
printf( M \n<B>This is the end</B>"); 

*/ 

if (m=0) { 
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printf("<B>Please choose the test</B>\n"); exit(0); 

} 

strcpy(MRN,entries[0].val); 
strcpy(MED,entries[ 1 ].val); 


5 

/* get the data */ 
test_hl7(msg); 

c=gettxt(msg,s,"TOTAL ROWS="); N=atoi(s); 

puts("<HTML><HEAD><TITLE>CPMC2</TITLE></HEAD>"); 
1 0 puts("<BODY><H2>Forced Vital Capacity Test</H2> M ); 

puts("<APPLET CODE^^jclass/chart/JCChartAppletxlassV" HEIGHT=300 W1DTH=400>"); 

i=0; while (strstr(parHL7[i] > MED)=NULL) i++; 

sscanf(parHL7[i], H %s%s%s M ,AccssN,s,sO); if (i=21) strcat(s,sO); 

puts("<PARAM NAME=header.isShowing VALUE^'truey^"); 
1 5 printf("<PARAM NAME=header.text VALUE=V%s(%s) trend\">\n*\s s parDim(i)); 

puts( M <PARAM NAME=data VALUE=\" M ); 

printf(" ARRAY " 1 %d T\n",N); 
« 

/* 

OBX!6!NM!47646 AA L!0!4.19!LITER!!! 
20 V 

c=msg; Tstr.tm_isdst=-1; 
for (i=0;i<N;i++) { 
c=gettxt(c,sO,"47639 AA L! ! !"); 

memcpy(s,sO s 4); sKI^O'; Tstr.tm_year=atoi(s>1900; 
25 memcpy(s i s0+4,2); s[2]^0'; Tstr.tm_mon=atoi(s)- 1 ; 

memcpy(s,s0+6,2); Tstr.tm_mday=atoi(s); 

memcpy(s,s0+8,2); Tstr.tm_hour=atoi(s); 

memcpy(s,sO+l 0,2); Tstr.tm_min=atoi(s); 

memcpy(s,s0+12,2); Tstr.tm_sec=atoi(s); ts[i]=mktime(&Tstr); 
30 c^strstrCc/MNM!"); cl=c+15; c2=s; *c2++=*cl++; 

while (*cl!=T) *c2++=*cl++; *c2=*\0*; c=cl; strcpy(par[i],s); 

} 

/♦for (i=N-l;i<0;i-) printfC %Id %s\n'\ts[il,par[i]);*/ 
for (i=N-l ;i>=0;i-) printf(" %d %s\n",N-i,par[i]); 
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putsOW); 

puts( M </APPLET></BODY></HTML>"); 


/* clean some memory*/ 
for(x=0;x <= m; x++){ 
5 free(entries[x].name); 
free(entries[x].val); 

} 

} 

char *parDim(int pnum) { /*28/29*/ 
1 0 switch (pnum) { 
case 0: 

case l:return( ?, LITER"); break; 
case 2:return("% M ); break; 
case 3:return("LITER");break; 
15 case 4:return( M %"); break; 

case 5:return("LITER n ); break; 
case 6: 

case 7:retum("%"); break; 

case SireturnCMIN"); break; 
20 case 9:return("LITER"); break; 

case 10:return("%"); break; 

case 1 1 :return("LITER/MIN"); break; 

case 12:return("LITER/SEC M ); break; 

case 13:return("% M ); break; 
25 case 14: 

case 15: 

case 16: 

case 17: 

case 18:return("LITER/SEC"); break; 
30 case 19: 

case 20:retum("SEC M ); break; 

case 21:retum("LITER/MFN"); break; 

case 22:return( ,, LITER"); break; 

case 23:return("%"); break; 
35 case 24:return("LITER/MIN"); break; 

case 25: 


BNSDOCID: <WO 9960926A1_1_> 


WO 99/60926 


PCT/US99/11828 


109 

case 26: 

case 27 : return ( M LITER/SEC"); break; 

case 28:return("%"); 

} 

5 } 

void getword(char *word, char *line, char stop) { 
int x = 0,y; 

for(x=0;((line[x]) && (linefx] != stop));x++) 
wordfx] = linefx]; 

10 word[x] = '\0*; 

if(line[x]) ++x; 

y-o ; 

while(Iine[y++] = line[x-H-]); 

} 

1 5 char *makeword(char *line, char stop) { 
int x = 0,y; 

char *word = (char *) ma!loc(sizeof(char) * (strlen(Iine) + 1)); 

for(x=0;((linefx]) && (linefx] 1= stop));x-M-) 
wordfx] = linefx]; 

20 wordfx] = W; 

if(line[x]) ++x; 
y-0; 

while(line[y++] = Iine[x++]); 
return word; 

25 } 

char *frnakeword(FILE *f, char stop, int *cl) { 
int wsize; 
char *word; 
int 11; 
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wsize = 102400; 
11=0; 

word = (char *) malloc(sizeof(char) * (wsize + 1)); 

while(l) { 
5 word[ll] = (char)fgetc(f); 

if(H=wsize) { 
wordni+n^'VO 1 ; 
wsize+= 102400; 

word = (char *)realloc(word,sizeof(char)*(wsize+l)); 

10 } 

-(*cl); 

if((word[ll] = stop) || (feof(f)) || (!(*cl))) { 
if(word[Il] != stop) 11++; 
word[ll] = W; 
1 5 return word; 

} 

} 

} 

20 char x2c(char *what) { 
register char digit; 

digit = (what[0} >= 'A 1 ? ((what[0] & Oxdf) - 'A')+I0 : (what[0] - r 0')); 
digit *= 16; 

digit += (what[l] >= 'A* ? ((what[l] & Oxdf) - 'A')+10 : (what[l] - '0')); 
25 return(digit); 

} 

void unescape_url(char *url) { 
register int x,y; 

for(x=O,y=0;url[y];++x,++y) { 
30 if((url[x] = url[y]) — '%') { 

url[x] = x2c(&url[y+l]); 
y+=2; 

} 
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} 

url[x] = '\0'; 

} 

void plustospace(char *str) { 
5 register int x; 

for(x=0;str[x];x++) if(str[x] == '+*) str[x] = * '; 

} 

int rind(char *s, char c) { 
register int x; 
1 0 for(x=strlen(s) - 1 ;x != - 1 ; x~) 

if(s[x] = c) return x; 
return - 1 ; 

} 

int getline(char *s, int n, FILE *f) { 
1 5 register int i=0; 

while(l) { 

s[i] = (char)fgetc(f); 

if(s[i] = CR) 
s[i] = fgetc(f); 

20 if«s[i] = 0x4) |i (s[i] = LF) || (i = (n-1))) { 

s[i] = *\0'; 

return (feof(f) ? 1 : 0); 

} 

25 } 
} 

void send_fd(FILE *f, FILE *fd) 
{ 

int num_chars=0; 
30 char c; 
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while (1) { 
c = fgetc(f); 
if(feof(f» 
return; 
fputc(c,fd); 

} 


char *gettxt(char *msgpnt,char *txtdat,char *ptrn) 

10 { 

int i; 

msgpnt=strstr(msgpnt,ptrn); msgpnt+=strlen(ptrn); 
i=0; while (*msgpnt!='!') txtdat[i-H-]=*msgpnt++; txtdat[i]^0'; 
return(msgpnt); 
15 } 


void test_hl7(char *data) 
{ 

/* 

MSH! A ~\&!tst!cucis!cis.qservice!cicsl9.phis! 19950125 120000MQRY! 1 9950125 120000!D!2.1!""! 
20 QRD!19950125120000!R!Ilfinkelj!!!0!3131313!RES!47646!*!C 

QRF!*!19901 104000000119961231 1 10700!SERVICE~*~~*~~*!95~57~55~* UR~ ~*~*~*~*~158 

*/ 

int yr,mt,dy,hr,mn,sc; 
int a,i,k; 
25 char 

qryLnl_lG= M MSH!^\\&!tst!cucis!cis.qsemce!cicsl^ 
D!2.1!VV! M ; 

char qryLn2_l []= f, \rQRD! 19950125 120000!R!I!finkelj !! !0! "; /*3131313*/ 

char qryLn2_2[]- 'IRES!"; /***/ 
30 char qryLn2_3Q="!*!C"; 

char qryLn3_in="\rQRF!*! 19921 104000000119981231 1 10700!SERVICE~*~*~*!95~57~55~*— - 

~UR — *~*~*~*~158"; 

char outmsg[32755],s[512]; 

unsigned short outlength; 
3 5 char qry [ 1 024]= m \tmp_qry [ 1 0024]="" ; 

FILE *f; 
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char svc[]="cis.qservice@cicst2.phis%ciscomtab"; 

sprintf(qry/ t %s%s%s%s%s%s%s", 

qryLn 1 _J ,qryLn2_ 1 ,MRM 3 qryLn2_2 ) MED,qryLn2_3,qryLn3_ 1 ); 
i=k=0; 

5 while(!k&&i<5) { 

k=0; 

outlength=32754; 

sprintf(tmp_qry ) "%s",qry); sprintf(s s "%s ,, ," M ); 
k=hl7sap(s,tmp_qry j outmsg,&outlength); 
1 0 outmsg[outlength]- \0'; 

if(!k) i++; 

} 

if(!k&&i=5) { 
fprintf(stderr, "Failed on HL7SAP\n n ); 

15 } 

for (i=0; i<strlen(outmsg);i++) { 
if(outmsg[i]=V) outmsg[i]-\n , ; 

} 

strcpy(data,outrnsg); 
20 } 


BNSDOCID: <WO 9960926A1_t_> 


WO 99/60926 


114 


PCT/US99/11828 


CLAIMS 

1 . A system for monitoring asthma severity comprising: 

a remotely located asthma monitoring station for administering a patient 
self-test and for gathering test data and relevant patient information indicative of 
5 asthmatic symptoms; 

a central processing facility for receiving said test data and patient 
information from said monitoring station, processing said test data to determine 
whether said test data is valid, analyzing valid test data to generate test results and an 
appropriate response message to said monitoring station, storing said test results in a 
10 central data repository, and disseminating said test results and response message in a 
timely manner as required; 

a remotely located diagnosis/evaluation station for displaying said test 
results, response message and patient information; and 

selectable data links for providing real-time reciprocal exchange of said 
1 5 test data, test results, response message and patient information between said 

monitoring station, said central processing facility and said diagnosis/evaluation 
station. 


2. The system according to claim 1, wherein said remotely located 
asthma monitoring station comprises: 
20 a spirometer for performing a forced vitality capacity test; 

a symptom diary for storing answers to questions regarding relevant 
patient information; 

a computing device coupled to said spirometer for administering said 
forced vitality capacity test and for reciprocal data exchange with said central 
25 processing facility. 


3. The system according to claim 2, wherein said remotely located 
diagnosis/evaluation station comprises a graphical user interface capable of displaying 
forced vitality capacity test results in graphical and tabular form. 
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4. The system according to claim 3, wherein said graphical user 
interface is an Internet Web browser. 

5. The system according to claim 1 , wherein said central processing 
5 facility comprises a feedback loop for automatically transmitting a request response 

message to said monitoring station when said test data is invalid, a confirmation 
message when test data is valid, and an alert message when valid test data is 
determined to be outside pre-determined alert limits. 

10 6. The system according to claim 1 , wherein one or more of said 

data links are provided via a wireless communication system. 

7. The system according to claim 1 , wherein one or more of said 
data links are provided via a landline communication system. 

15 

8. The system according to claim 1 , wherein one or more of said 
data links are provided via the Internet. 

9. The system according to claim 1 , further comprising a plurality 
of remotely located asthma monitoring stations. 

20 10. The system according to claim 1, further comprising a 

plurality of remotely located diagnosis/evaluation stations. 

1 1 . The system according to claim 1 , further comprising at least one 
diagnosis/evaluation station located at said central processing facility. 


25 


12. The system according to claim 1 , further comprising at 
distributed computer program for controlling said system for remotely monitoring 
asthma severity. 
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13. A method for monitoring asthma severity comprising the steps 

of: 

administering a self-test at a remotely located monitoring station to 
gather test data and relevant patient information indicative of asthmatic symptoms; 
5 transmitting said test data and patient information from said monitoring 

station to a central processing facility; 

processing said test data by said central processing facility to determine 
whether said test data is valid; 

analyzing valid test data to generate test results and an appropriate 
10 response message; 

storing said test results in a central data repository; 
disseminating said test results and said response message in a timely 
manner as required; and 

displaying said test results, response message and patient information at 
15 a remotely located diagnosis/evaluation station. 

14. The method according to claim 13, further comprising the step of 
generating an appropriate request response when said test data is determined to be 
invalid by said central processing facility. 

15. A computer program for use with the system according to claim 
20 1 , said computer program comprising: 

at least one remotely located computer usable medium; 
at least one centrally located computer usable medium; and 
distributed computer readable program code means embodied in said 
remotely and centrally located computer usable media, said program code means 
25 comprising: 

means for administering a self-test at a remotely located 
monitoring station to gather test data and relevant patient information indicative of 
asthmatic symptoms; 
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means for transmitting said test data and patient information 
from said monitoring station to a central processing facility; 

means for processing said test data by said central facility 
network to determine whether said test data is valid; 
5 means for analyzing valid test data to generate test results and an 

appropriate response message; 

means for storing said test results in a central data repository; 

means for disseminating said test results and said response 
message in a timely manner as required; and 
10 means for displaying said test results, response message and 

patient information at a remotely located diagnosis/evaluation station. 
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AMENDED CLAIMS 

[received by the International Bureau on 28. September 1999 (28.09.99); 
original claims 1,3, 13 and 15 amended; new claims 16-19 added; remaining claims 

unchanged (4 pages) 

1 . A system for monitoring asthma severity comprising: 
a remotely located asthma monitoring station for administering a 
patient self-test to gather test data and relevant patient information indicative of 
5 asthmatic symptoms and conditions; 

a remotely located diagnosis/evaluation station: 
a central processing facility receiving said test data and patient 
information from said monitoring station, processing said test data to determine 
whether said test data is valid, analyzing valid test data to generate test results and an 
1 0 appropriate response message to said monitoring station, storing said test results in a 
central data repository, and disseminating said test results and response message in a 
timely manner as required to one or both of said monitoring station and said 
diagnosis/evaluation station; and 

selectable data links coupling said monitoring station, said central 
15 processing facility and said diagnosis/evaluation station for providing real-time 

reciprocal exchange of said test data, said test results, said response message and said 
patient information between said monitoring station, said central processing facility 
and said diagnosis/evaluation station, and for allowing the display of one or more of 
said test data, said test results, said response message and said patient information at 
20 one or both of said monitoring station and said diagnosis/ evaluation station. 

2. The system according to claim 1, wherein said remotely located 
asthma monitoring station comprises: 

a spirometer for performing a forced vitality capacity test; 

a symptom diary for storing answers to questions regarding relevant 
25 patient information; 

a computing device coupled to said spirometer for administering said 
forced vitality capacity test and for reciprocal data exchange with said central 
processing facility. 

30 3. The system according to claim 2, wherein said remotely located 
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diagnosis/evaluation station comprises a graphical user interface for displaying results 
from said forced vitality capacity test in graphical and tabular form. 

4. The system according to claim 3, wherein said graphical user 
5 interface is an Internet Web browser. 

5. The system according to claim 1 , wherein said central 
processing facility comprises a feedback loop for automatically transmitting a request 
response message to said monitoring station when said test data is invalid, a 
confirmation message when test data is valid, and an alert message when valid test 

1 0 data is determined to be outside pre-determined alert limits. 

6. The system according to claim 1 , wherein one or more of said 
data links are provided via a wireless communication system. 

1 5 7. The system according to claim 1 , wherein one or more of said 

data links are provided via a landline communication system. 

8. The system according to claim 1 , wherein one or more of said 
data links are provided via the Internet. 

20 9. The system according to claim 1, further comprising a plurality 

of remotely located asthma monitoring stations. 

1 0. The system according to claim 1 , further comprising a plurality 
of remotely located diagnosis/evaluation stations. 

1 1. The system according to claim 1, further comprising at least 
25 one diagnosis/evaluation station located at said central processing facility. 

12. The system according to claim 1, further comprising at 
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distributed computer program for controlling said system for remotely monitoring 
asthma severity. 

13. A method for monitoring asthma severity comprising the steps 

of: 

5 administering a self-test at a remotely located monitoring station to 

gather test data and relevant patient information indicative of asthmatic symptoms and 
conditions; 

transmitting said test data and patient information from said 
monitoring station to a central processing facility; 
1 0 processing said test data at said central processing facility to determine 

whether said test data is valid; 

analyzing valid test data at said central processing facility to generate 
test results and an appropriate response message; 

storing said test results in a central data repository; 
15 disseminating said test results and said response message in a timely 

manner as required to one or both of said monitoring station and a remotely located 
diagnosis/evaluation station; and 

displaying said test results, said response message and said patient 
information at one or both of said monitoring station and said diagnosis/evaluation 
20 station. 

14. The method according to claim 13, further comprising the step 
of generating an appropriate request response when said test data is determined to be 
invalid by said central processing facility. 

15. The system according to claim 1, comprising: 
25 at least one remotely located computer usable medium; 

at least one centrally located computer usable medium; and 
distributed computer readable program code means embodied in said 
remotely and centrally located computer usable media, said program code means 


BNSDOCIO <WO 9960926A1J_> 


AMENDED SHEET (ARTICLE 19) 


WO 99/60926 PCT/US99/1 1 828 

121 

comprising: 

means for administering a self-test at a remotely located 
monitoring station to gather test data and relevant patient information indicative of 
asthmatic symptoms and conditions; 
5 means for transmitting said test data and patient information 

from said monitoring station to a central processing facility; 

means for processing said test data at said central facility 
network to determine whether said test data is valid; 

means for analyzing valid test data at said central processing 
10 facility to generate test results and an appropriate response message; 

means for storing said test results in a central data repository; 

means for disseminating said test results and said response 
message in a timely manner as required to one or both of said monitoring station and a 
remotely located diagnosis/evaluation station; and 
15 means for displaying said test results, said response message 

and said patient information at one or both of said monitoring station and said 
diagnosis/evaluation station. 


16. The system according to claim 1, further comprising test results 
previously stored in said central data repository for analyzing said test data received 

20 by said central processing facility from said monitoring station. 

17. The system according to claim 1, further comprising test results 
previously stored in said central data repository for display at one or both of said 
monitoring station and said remotely located diagnosis/evaluation station. 

1 8. The method according to claim 13, wherein said step of 

25 analyzing said test data comprises the step of analyzing previously stored test results. 

1 9. The method according to claim 1 3, further comprising the step 
of displaying previously stored test results. 
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